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Il monitor come TV 

Possiedo un C64 con disk drive e moni- 
tor a colori 1701 e, dovendo acquistare 
un nuovo TV color ; vorrei sapere se è 
possibile utilizzare il monitor sia con il 
computer che per ricevere le normali im- 
magini televisive. 

M.Marlnl 

R. Un monitor a colori come il Commo- 
dore 1701 ò senz'altro in grado di visua- 
lizzare le immagini televisive, e con una 
qualità sensibilmente superiore a quella 
di un normale televisore a colori. Tutto 
ciò che serve ò un semplice sintonizza- 
tore TV, un apparecchietto che si può 
trovare a prezzi non elevati presso i più 
forniti negozi di apparecchiature radio- 
televisive, e si collega al monitor tramite 
le due prese nel pannello frontale. Se si 
possiede un videoregistratore le cose 
sono ancora più semplici, dal momento 
che ogni videoregistratore possiede al 
suo interno un sintonizzatore. In questo 
caso sarà sufficiente acquistare una 
coppia di cavi coassiali con spinotti del 
tipo RCA e utilizzarli per collegare le 
uscite audio e video del videoregistrato- 
re ai due ingressi frontali del monitor. 

Il computer potrà rimanere collegato co- 
me di consueto alle prese posteriori del 
monitor e la selezione tra utilizzo con il 
computer e utilizzo come apparecchio 
TV potrà essere fatta semplicemente 
spostando l'interruttore che si trova sul 
pannello posteriore del 1701 . 

Continuità degli archivi 

Attuale possessore di un C64 con disk 
drive 1541 , vorrei sapere se ritenete 
conveniente l'archiviazione di tutti i dati 
concernenti la mia attività (un archivio 
alquanto esteso) su questo sistema, te- 
nendo presente che tra qualche anno si- 
curamente il C64 non verrà più prodot- 
to . Sarà comunque possibile leggere i 


V'* 




dati su un altro computer più moderno, 
oppure andranno irrimediabilmente per- 
duti e occorrerà ridigitarli per intero? 

A.Morandi 

R. Certamente, quando d si acdnge a 
creare una propria base di dati importan- 
ti (non, per intenderci, la rubrica del tele- 
fono oppure i risultati delle partite di cal- 
cio), occorre valutare attentamente le 
prestazioni e l'affidabilità del sistema da 
acquistare o di quello già posseduto. 

Il C64, pur essendo un ottimo computer, 
non è stato progettato per utilizzi profes- 
sionali, nè la sua memoria di massa (e 
qui parliamo solo di drive, perchè il regi- 
stratore proprio non avrebbe senso) 
possiede quelle doti di capacità e veloci- 
tà indispensabili a scrivere, ricercare ed 
elaborare in modo affidabile una gran 
quantità di dati. 

Il terzo problema riguarda il software: 
malgrado esistano in commercio dei buo- 
ni database per C64, scritti interamente 
in linguaggio macchina e affidabili, an- 
ch'assi soffrono della limitazione hard- 
ware costituita dal drive 1541; se per 
contenere il nostro archivio dobbiamo 
utilizzare dieci diversi dischetti, cosa 
succederà quando dovremo eseguire 
degli ordinamenti, delle ricerche, oppure 
aggiungere un campo a ogni record nel- 
l'intero archivio? 

Per questi motivi, se i dati sono tanti e 
sono importanti sotto l'aspetto profes- 
sionale e non hobbistico, consigliamo 
senza dubbio il passaggio a un sistema 
superiore (tipicamente un sistema MS- 
DOS). 

Nel caso tuttavia che per altre ragioni si 
desideri utilizzare comunque il C64, si 
tenga presente che i dati dell'archivio 
potranno essere in seguito trasferiti su 
un altro sistema soltanto per via RS-232 
e (a meno che il programma database 
abbia un'apposita funzione di comunica- 
zione) soltanto se in qualche modo ri- 
conducibili al formato sequenziale 


ASCII. 

Poiché tutti i programmi più potenti di ar- 
chiviazione per C64 utilizzano i file relati- 
vi, occorrerà dunque un programma che 
converta questi ultimi nel formato se- 
quenziale ASCII adatto alla trasmissio- 
ne via RS-232 (il programma Relfiling 
System 1 .0 da noi pubblicato consente 
per esempio questa decodifica). I dati ri- 
cevuti nel formato ASCII dall'altro com- 
puter dovranno essere quindi riconverti- 
ti nel formato utilizzato dall'altro databa- 
se: problema minore in quanto tutti i pac- 
chetti professionali per sistemi MS-DOS 
prevedono la conversione dei dati dal 
formato ASCII al formato interno utiliz- 
zato dal programma 
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gliamo quindi di porre grande atten- 
zione nel digitare tale tipo di istru- 
zioni. 

Un'ultima avvertenza sull’utilizzo di 
OK-LIST riguarda le abbreviazioni 
delle istruzioni BASIC: esse non 
vengono riconosciute da OK-LIST e 
generano pertanto un checksum dif- 
ferente. Se si utilizza OK-LIST, le 
istruzioni BASIC dovranno quindi es- 
sere digitate per intero. 

Data {a sua posizione in memoria (il 
buffer del registratore), OK-LIST in- 
terferisce con ogni operazione con 
l’unità a cassette. Per questo moti- 
vo prima di effettuare un SAVE su 
nastro OK-LIST dovrà essere pre- 
ventivamente disabilitato attraverso 
la pressione di RUN/STOP e RE- 
STORE. 

Non è possibile effettuare operazio- 
ni di LOAD da cassetta senza cancel- 
lare OK-LIST dalla memoria. 

Queste limitazioni non sono invece 
presenti, se si utilizza il disk drive co- 
me memoria di massa. 

Nel caso si prema accidentalmente 
RUN/STOP e RESTORE durante l'u- 
tilizzo di OK-LIST, esso potrà esse- 
re riattivato digitando SYS886. 


rj Ir I I OT Potete a questo punto iniziare a rico- 

L-lw I piare il programma BASIC prescelto, 

evitando di digitare la "rem" seguita 
da un numero che compare al termi- 

S appiamo tutti quanto sia diffici- ne di ogni linea. Come vedrete, alla 

le digitare correttamente un prò- pressione di RETURN apparirà un 

gramma (ovviamente, se non si di- numero nell'angolo superiore sini- 

spone della cassetta allegata alla rivi- stro dello schermo; confrontatelo 

sta!). Errori di digitazione anche ba- con quello riportato dopo la "rem" 

nali possono provocare il malfunzio- sul listato: se è diverso, avete com- 

namento del programma stesso o messo un errore nel digitare quella li- 

anche il blocco completo del compu- nea di programma, 

ter, obbligando a riprendere da ca- OK-LIST non verifica gli spazi all'in- 

po tutto il lavoro. terno di una linea di istruzione: se 

OK-LIST è un particolare program- tutti i checksum (così vengono chia- 
ma in grado di intercettare gli errori mati i numerini di controllo visualizza- 

commessi durante la digitazione di ti da OK-LIST) sono corretti, e il pro- 
uno dei listati da noi pubblicati, e di gramma genera invece delle videa- 

segnalarveli. te 'spezzettate', probabilmente ave- 

Digitate il listato pubblicato in que- te dimenticato o aggiunto qualche 
sta pagina (attenzione a non com- spazio di troppo all'interno delle vir- 
mettere errori: OK-LIST non può golette di una istruzione PRINT. 

controllare se stesso!) e quindi salva- Inoltre, OK-LIST non è in grado di 

telo su nastro o disco. controllare la sequenza con la quale 

Quando dovrete accingervi a digita- vengono digitati i caratteri all'interno 

re uno dei nostri programmi in BA- di un'istruzione; ciò è particolarmen- 

SIC, caricate per prima cosa OK- te pericoloso nel caso delle istruzio- 

LIST e dategli il RUN: dopo una bre- ni DATA contenenti molti numeri, 

ve attesa, necessaria a inserire in Ad esempio, digitando 220 dove an- 

memoria una routine in linguaggio drebbe digitato 202, non si verifica 

macchina, comparirà sullo schermo il alcuna variazione nel checksum, pur 

messaggio "OK-LIST ATTIVATO". avendo commesso un errore; consi- 


Buon lavoro! 


10 PRINT" {CLR} ATTENDERE PREGO..." 

1 1 FORI =886TOl 01 8 : READA:CK=CK+A: POKEI , A: N 
EXT 

12 IF CROI 7539 THEN PRINT" {GIU '} ERRORE N 
ELLE ISTRUZIONI DATA": END 

13 SYS886: PRINT" {CLR} { 2 GIU'JOK-LIST ATT 
I VATO . " : NEW 

14 DATA173, 036, 003, 201 ,1 50,208 

15 DATA001 ,096,141 ,151 ,003,1 73 

16 DATA037, 003, 1 41 ,152,003,169 

17 DATA1 50, 141 ,036,003,169,003 

18 DATA141 ,037,003,169,000,133 

19 DATA254 , 096 , 032,087,241 ,1 33 

20 DATA251 ,134,252,132,253,008 

21 DATA201 ,01 3,240,017,201 ,032 

22 DATA240, 005, 024, 101 ,254,1 33 

23 DATA254, 165, 251 ,166,252,164 


1 REM LDeCK 

I CI? fiSWSMK 

~ e i® a cZERR raatop-26: REM RRMTO 

p-n 

15 LET raatop*PEEK 2373 
EEK 23731 

30 uet let n =2© 

4.0 


230 POK 
240 NE* 
250 REI 
260 REC 
300 Dflf] 
115, 3#J 

206 , 2 fi 


b«XNT (d/16+U 
d *d 1 


XT 1 
TURN 
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il mensile dell'alta 
tecnologia nell’industria 
moderna: soluzioni 
applicative e nuovi 
orientamenti in R&S, 
produzione e servizi. 
Abb. annuo 
IO numeri 
lire 41.000 
anziché lire jiifcOOQ 



La più autorevole rivista 
italiana di componenti, 
strumentazione ed 
elettronica professionale. 

Abb. annuo 
20 numeri 
lire 64.000 
anziché lire 8&0OQ 


VIDEOTEL MAGAZINE 


INFORMATICA OGGI 



La rivista dei nuovi servizi 
interattivi telematici: 
applicazioni, fornitori 
di informazione, utilizzo. 

Abb. annuo 
6 numeri 
lire 20.000 
anziché lire 24*00?) 



SO» TWARt METROPOLITANO 


L'informatica 
professionale: 
dall’elaborazione dati 
all’office automation. 
Servizi speciali 
e anticipazioni 
esclusive dalla Silicon 
Valley. 

Abb. annuo 
11 numeri 
lire 40.000 
anziché lire 4&50Q 



VIDEOGIOCHI NEWS 


COMPUSCUOLA 
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Il giornale di videogames 
e home computer, con 
recensioni di giochi 
sempre nuovi. 

Abb. annuo 
11 numeri 

lire 18.000 . 

anziché fire^2jO0§ 



L'informatica nella 
didattica: problemi, 
esperienze e prospettive 
del computer nel mondo 
della scuola. 

Abb. annuo 
9 numeri 
lire 21.000 
anziché lire 27.000 


STRUMENTI MUSICALI 



Il mensile per i 
professionisti della 
musica: audiotest, 
rassegne, computer 
music, servizi, interviste. 
Abb. annuo 
11 numeri 
lire 35.000 
anziché lire^M&O 






AUTOMAZIONE OGGI 
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Robotica, controllo 
numerico, CAD/CAM, 
sistemi flessibili... 
problemi e soluzioni per 
la nuova automazione 
industriale. 

Abb. annuo 
11 numeri 
lire 46.000 . 
anziché lire 


ELETTRONICA, STRUMENTAZIONE 

& AUTOMAZIONE PRODUCT NEWS 

Il giornale di tutti i nuovi 
prodotti dell’elettronica, 
della strumentazione 
dell'automazione 
industriale e 

dell'elettronica medicale. 

Abb. annuo 
11 numeri 
lire 26.000 
anziché lire^33^)J$P 


TRASMISSIONE DATI 



ELETTRONICA 
STRUMENTAZIONE 
& AUTOMAZIONE 
PRODUCT NEWS 
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PC & COMPUTER PRODUCT NEWS PC WORLD MAGAZINE 


PC & COMPUTER 
PRODUCT NEWS 



Il giornale di tutti i nuovi 
prodotti hardware e 
software dell'informatica: 
dai medi sistemi 
al Personal Computer. 
Abb. annuo 
11 numeri 
lire 27.000 
anziché lire |3-8O0 


PC 

MAGAZINE i 
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La prima e unica rivista 
italiana per gli utenti di 
personal computer IBM 
Olivetti e compatibili. 

Abb. annuo 
11 numeri 
lire 44.000 
anziché lire jx&OOQ 


COMPUTER GRAFICA 


& APPLICAZIONI 
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(anpuler Grafica 





La rivista della grafica e 
dell’immagine con il 
computer: applicazioni 
pratiche per l'industria, le 
professioni e i servizi. Dal 
CAD/CAM alla pubblicità. 
Abb. annuo 
4 numeri 
lire 19.000 
anziché lire'2$eQ$ 


NOI C128 E C64 



La rivista con disco o 
cassetta dei package 
professionali, modelli 
applicativi e giochi 
intelligenti. 

Abb. annuo 11 numeri 
(versione con cassetta) 
lire 70.000 
anziché lire^9?0Qp 
(versione con disco) 
lire 115.000 
anziché lire J44&Q0 


ELETTRONICA HOBBY 


NAUTICAL QUARTERLY 


SIETTItOniGR 



La rivista per ^hobbista 
elettronico, il 
radioamatore, il 
riparatore radio-TV, 
('hardware dei personal 
computer. 

Abb. annuo 
12 numeri 
lire 32.000 
anziché tire 



Il trimestrale di cultura 
nautica più prezioso e 
raffinato del mondo. 
Emozioni da leggere, 
guardare e conservare. 
Abb. annuo 
4 numeri 
lire 70.000^ 
anziché lireJ£Q?00T) 


E TELECOMUNICAZIONI 


Trumissmvte Dati 

Tblacomunicaziimi 



Il mensile dei nuovi 
sistemi 

di telecomunicazioni, data 
Communications 
e telematica. 

Abb. annuo 
11 numeri 
lire 36.000. 
anziché lire 44=80Q 


BIT 


BIT 



La prima rivista europea, 
fa più famosa 
e autorevole in Italia, 
di personal, home, 
business computer, 
software e accessori. 
Abb. annuo 
11 numeri 
lire 43.000 
anziché lire 5580$ 


SUPERCOMMODORE 64 & 128 

La prima rivista con 
cassette programmi, 
dedicate agli utenti home 
computer Commodore 
64 e 128. 

Abb. annuo 
11 numeri 
lire 66.000 
anziché lire 82~50tf 



OLIVETTI PRODEST USER 



L'unica rivista per gli 
utenti dei sistemi Olivetti 
Prodest PC128 e PC128S. 
Una guida all'uso 
indipendente e completa. 
Abb. annuo 
6 numeri 
lire 15.000 
anziché lireT&OQjf 
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AUTOMOBILE QUARTERLY 

Il trimestrale più 
prestigioso e raffinato del 
mondo, dedicato all’auto, 
alla sua storia, ai suoi 
miti. 

Per chi intende l’auto 
come un fatto di cultura 
e di passione. 

Abb. annuo 
4 numeri 
lire 69.500 
anziché lire 80fO0Ó 











Autobooter G64 


di T. Roper 

trad. e adatt. di S. Colombo 


Spesso cl sono giunte richieste 
di routine In grado di lanciare au- 
tomaticamente un programma do- 
po Il suo caricamento In memo- 
ria: oltre a realizzare una buona 
protezione contro la copia abusi- 
va, routine del genere risultano 
molto comode In quanto elimina- 
no la necessità di tenere a men- 
te le SYS di attivazione del pro- 
grammi in linguaggio macchina. 
Autobooter C64 è una breve rou- 
tine con tutte queste caratteri- 
stiche e richiede l'utlllzzo del 
disk drive. 

Autobooter C64 è in grado di aggiungere 
la caratteristica deirautoboot", cioè l'e- 
secuzione automatica dopo il carica- 
mento, ai vostri programmi sia in BASIC 
che in linguaggio macchina. 

La maggior parte delle routine esistenti 
che eseguono lo stesso compito hanno 
due significativi svantaggi: richiedono 
un file separato che realizza il "boot" ca- 
ricando e attivando il programma princi- 
pale, oppure provocano un notevole au- 
mento delle dimensioni del programma 
stesso. 

Autobooter C64 non soffre di questi pro- 
blemi: il file di autoboot è unico e più lun- 
go di soli 257 byte rispetto al program- 
ma originario. 

H Dulcis in fundo", i programmi generati 
da Autobooter C64 sono molto più resi- 
stenti ai crash del sistema rispetto ai 
programmi caricati e attivati nel modo 
usuale. 


Creare un file di autoboot 

L'uso di Autobooter C64 è estremamen- 
te semplice: basta rispondere a una se- 
rie di domande poste sequenzialmente 
dal programma. Per prima cosa, occorre 
inserire il nome del file relativo al pro- 
gramma che si intende convertire; que- 
sto file può essere uno qualunque dei fi- 
le presenti sul dischetto, con l'unica limi- 
tazione nel fatto che non può essere più 
lungo di 7935 byte (circa 31 blocchi). 

Dopo aver inserito il nome del file, Auto- 
booter C64 esegue due "passate” sul fi- 
le stesso: nella prima vengono contati 
tutti i byte costituenti il file per assicurar- 
si che stiano entro il limite dei 7935 e vie- 
ne calcolato l'indirizzo di caricamento 
della nuova versione autoboot. Nella se- 
conda passata invece avviene il trasfe- 
rimento del file dal dischetto alla memo- 
ria centrale. 

Quando il drive termina di girare, vi ver- 
rà chiesto se il file in questione è in BA- 
SIC oppure in linguaggio macchina: se il 
programma è completamente in BASIC 
oppure è in linguaggio macchina ma ini- 
zia con una linea BASIC contenente un'i- 
struzione SYS, premete il tasto B (per 
BASIC). Se il programma è totalmente in 
linguaggio macchina e non inizia dalla 
locazione 2049 (ovvero non possiede al- 
cuna linea BASIC contenente una SYS, 
e viene normalmente caricato con l'indi- 
rizzo secondario 1), inserite l'indirizzo 
di attivazione normalmente richiesto dal- 
la SYS. Per esempio, se il programma in 


linguaggio macchina viene caricato abi- 
tualmente con LOAD"NOME",8,1 e per 
l'attivazione richiede un NEW e una 
SYS49152, inserite il numero 49152. 

Vi verrà infine richiesto il nome da asse- 
gnare al file autoboot. A questo punto, 
Autobooter C64 provvede alla scrittura 
su disco del nuovo file: esso consiste in 
una copia del file originario più 257 byte 
(circa 1 blocco) di linguaggio macchina 
per realizzare Fautoboot. , 

Quando questo procedimento sarà com- 
pleto, troverete sul dischetto un nuovo 
file pronto per l'uso: un file autoboot è 
una versione autosufficiente e autoatti- 
vante del programma originale, con alcu- 
ne insolite caratteristiche, 
il fatto più insolito è che i file autoboot 
possiedono lo stesso indirizzo finale dei 
programmi originari, ma un diverso indi- 
rizzo iniziale di caricamento. Il carica- 
mento di un file autoboot in linguaggio 
macchina fuori dall'inizio dell'area BA- 
SIC non disturba inoltre i puntatori 45 e 
46 (inizio delle variabili: è la variazione 
di valore di questi puntatori che impone 
normalmente l'istruzione NEW prima del- 
l'attivazione), quindi è possibile carica- 
re in autoboot un programma in linguag- 
gio macchina senza per questo disturba- 
re un altro programma BASIC eventual- 
mente già presente in memoria. 

Una efficace dimostrazione 

Ecco una breve dimostrazione per valu- 
tare l'efficacia di una routine come Auto- 
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le tariffe di abbonamento Jackson 86-87 


RIVISTA 

NUMERI 

ANNUI 

TARIFFE 

ABBONAMENTO 

PROFESSIONALI 

INDUSTRIA OGGI 

10 

lire 4 1.000 Anziché lire 50.000 / 

ELETTRONICA OGGI 

20 

lire 64.000 anziché lire 80.00(/ 

AUTOMAZIONE OGGI 

11 

lire 46.000 aircichè lire 55.0M5 

ELETTRONICA, STRUMENTAZIONE & AUTOMAZIONE PRODUCT NEWS 

11 

lire 26.000 anziché lire 33.000 

TRASMISSIONE DATI E TELECOMUNICAZIONI 

11 

lire 36.000 anziché lire 44.000 

VIDEOTEL MAGAZINE 

6 

lire 20.000 anziché lire 24y000 

INFORMATICA OGGI 

: 11 

lire 40.000 anziché lire 49^500 

PC & COMPUTER PRODUCT NEWS 

11 

lire 27.000 anzichè\ire 33.000 

COMPUTER GRAFICA & APPLICAZIONI 

4 

lire 19.000 anziché Ve £4.000 

PERSONAL 

E HOME 
COMPUTER 

PC WORLD MAGAZINE 

11 1 

lire 44.000 anziché lire / 55.000 

BIT 

11 

lire 43.000 anziché lira 55.000 

SUPERCOMMODORE 64 & 128 

11 

lire 66.000 anziché lirA 82.500 

NOI C128 E C64 (con cassetta) 

11 

lire 70.000 anziché Ijre 109.000 

NOI CI 28 E C64 (con disco) 

11 

lire 115.000 anzichè/ire 144.000 

OLIVETTI PRODEST USER 

6 1 

lire 15.000 anziché lire 18.000 

VIDEOGIOCHI NEWS 

11 

lire 18.000 anziché lire 22:000 

COMPUSCUOLA 

9 

lire 21.000 anzianè lire 27.000 

HOBBY E 
TEMPO LIBERO 

ELETTRONICA HOBBY 

12 

lire 32.000 anziché lire 42.000 

STRUMENTI MUSICALI 

11 

lire 35.000 an/ichè lire 44.000 

CULTURA 
& PRESTIGIO 

NAUTICAL QUARTERLY 

4 

lire 70.000 anziché lire 80.00(A 

AUTOMOBILE QUARTERLY 

4 

lire 69.500 Anziché lire 80.000 \ 

N.B. - Per abbonamenti all'estero le tariffe dovranno essere raddoppiate. Non è prevista la spedizione via aerea. 


i privilegi riservati agli abbonati Jackson 


Agenda 

monografica 

Jackson 



Elegante e raffinata, l'agenda 
settimanale Jackson è qual- 
cosa di più di una delle’rruglio- 
ri agende: oltre a riprendere 
la prestigiosa linea editoriale 
di Nautical Quarterly e Auto- 
mobile Quarterly, ha caratte- 
re monografico e, nell’edizio- 
ne 1987, è dedicata alla Com- 
puter-Art, con splendide im- 
magini a colori. 


Questa agenda diventerà una 
costante nei privilegi riservati 
agli abbonati Jackson e costi- 
tuirà un vero e proprio ogget- 
to da collezione, il cui valore 
aumenterà nel tempo. 
L'edizione 1987 sarà inviata 

soltanto a coloro che risulte- 


ranno regolarmente abbonati 

al 30 novembre 1986 ad al- 

meno una rivista la cui tariffa 
di abbonamento è superiore 

a L. 30.000. 

Naturalmente chi sottoscrive- 
rà o rinnoverà l’abbonamento 
dopo tale data, acquisirà il di- 
ritto a ricevere automatica- 
mente l’edizione 1988. 
L’agenda Jackson 1987 sarà 
posta anche in vendita, al 
prezzo di lire 20.000. 

Jackson Magazine 

L’altra straordinaria novità, 
che accompagnerà gli abbo- 
nati Jackson nel corso del 
1987. 


Una vera e propria rivista tri 



mestrale, contenente una se- 
lezione dei migliori articoli 
pubblicati dai periodici Jack- 
son e un aggiornamento co- 
stante sul mondo dell’alta tec- 
nologia. Non solo: Jackson 
Magazine sarà anche l’occa- 
sione di un dialogo diretto 
con Jackson per scoprire, in 
anticipo, programmi e iniziati- 
ve future e per trasmetterci 
suggerimenti, impressioni e 
desideri. 



Risparmio 

assicurato 


Gli abbonati 
alle riviste Jack- 
son possono contare su un 
duplice risparmio: una tariffa 
privilegiata, come indicato 
nella tabella e la garanzia del 
prezzo bloccato per l'intera 
durata del proprio abbona- 
mento, oltre alla certezza di 


non perdere alcun numero 
delle loro riviste preferite. 

Sconto 20% 
sui libri Jackson 

È questo un altro significativo 
privilegio riservato agli abbo- 
nati Jackson: lo sconto del 



20% su tutti t libri dei catalo- 
go Jackson, per acquisti effet- 
tuati fino al 28/2/1987 diret- 
tamente all’editore. Dopo tale 

S ata, e per tutta la durata 
eH’abbonamento, tale scon- 
to privilegiato sarà del 10%. 

Offerte speciali 
e riservate 

Nel corso dell'anno, periodi- 
camente, saranno inviate al- 
cune offerte speciali, che il 
Gruppo Editoriale Jackson ri- 
serverà ai soli abbonati. Tali 



offerte consentiranno l’acqui- 
sto di selezioni di libri, grandi 
opere e software, a condizioni 
particolarissime. 

Un privilegio 
veramente 


ABBONARSI 
È FACILE! 
UTILIZZATE 
IL MODULO 
DI CONTO 
CORRENTE 
POSTALE GIÀ 
PREDISPOSTO 
E/O LA SPECIALE 
“BUSTA- 

ABBONAMENTI” 
INSERITI 
IN QUESTA 
RIVISTA 



JACKSON 

DIVISIONE PERIODICI 


booter C64. Scegliete un programma 
BASIC che desiderate convertire in for- 
mato autoboot: può essere un program- 
ma qualsiasi con lunghezza minore o 
uguale a 7935 byte. Seguite la procedu- 
ra prima descritta per convertire il file in 
formato autoboot, quindi eseguite que- 
sta prova: 

1. digitate NEW 

2. Digitate LOAD’nomefile’,8,1 dove 

"nomatile" è il nome del file autoboot. Il 
programma verrà caricato ed eseguito 
automaticamente. 

3. Dopo aver verificato che il program- 
ma "gira" come al solito, fermatelo pre- 
mendo RUN/STOP (o RUN/STOP e RE- 
STORE se necessario). 

4. Ora, l'esame di qualche nuova carat- 
teristica dei file autoboot: digitate NEW 
e poi LIST per sincerarvi che il program- 
ma sia stato cancellato. Digitate quindi 
POKEI.O e premete RETURN: il pro- 
gramma sarà ancora in memoria e in ese- 
cuzione (si noti che, in casi normali, que- 
sta POKE provoca il blocco del compu- 
ter). 

5. Premete RUN/STOP per fermare il 
programma, e caricate un altro program- 
ma BASIC. Ciò normalmente assicura 
che il primo programma sia stato com- 
pletamente sovrascritto dal secondo, 
con totale perdita dei dati. Digitate anco- 
ra POKE1 ,0 e il primo programma riap- 
parirà riprendendo contemporaneamen- 
te la sua esecuzione. 

Come è possibile? Un programma di- 
strutto dal caricamento di un altro file 
viene "resuscitato” da una semplice PO- 
KE? Lo vedremo tra poco. 

Supponiamo che stiate utilizzando un 
programma BASIC e, improvvisamente, 
si crei la necessità di eseguirne un altro 
che occupa la stessa area di memoria; 
se il primo programma ò in formato auto- 
boot, non esiste alcun problema, sarà 
sufficiente caricare e attivare il secon- 
do, effettuare i calcoli o le operazioni de- 
siderate, quindi interromperne l'esecu- 
zione e digitare POKE1 ,0: il primo pro- 
gramma ricomparirà "magicamente”, già 
in esecuzione. 


Il metodo di Indirizzamento 

Abbiamo detto prima che i file autoboot 
non possono superare il limite di lun- 
ghezza di 7935 byte; ciò per la ragione 
che il programma in linguaggio macchi- 
na di 257 byte che viene aggiunto al pro- 
gramma originale deve sempre essere 
caricato in memoria a partire dalla loca- 
zione $FF00 (65280). La parte rimanen- 
te del programma entra in memoria diret- 
tamente al disotto di questa parte in lin- 
guaggio macchina, da $E000 a $FEFF 
(57344-65279). Come forse sapete, il 
caricamento di un programma in questa 
zona provoca l'immagazzinamento dei 
suoi byte nella RAM "nascosta" sotto la 
ROM del Kernal. 

Perchè è cruciale caricare gli ultimi 257 
byte a partire da $FF00? Se notate che 

257 + 65280 (decimale di $FF00) dà co- 
me risultato un numero maggiore di 
65535 ($FFFF), e quest'ultima è la loca- 
zione di memoria più alta esistente nel 
C64, ci saranno ancora due byte da cari- 
care quando si raggiunge l'ultima loca- 
zione nella memoria del C64. 

Dal momento che è impossibile utilizza- 
re un indirizzo più alto di 65535, il com- 
puter carica questi ultimi due byte nelle 
due locazioni più basse, la $00 e la $01 . 
Caricare un file in questo modo del tutto 
insolito provoca due importanti conse- 
guenze: permette di modificare il conte- 
nuto del chip di I/O (locazione 1 ) e per- 
mette di manipolare il contenuto del vet- 
tore principale di IRQ in $FFFE e $FFFF. 
Osserviamo in primo luogo la locazione 
1 : il suo primo compito è quello di con- 
trollare se il C64 "vede" la ROM oppure 
la RAM nelle locazioni superiori alla 
$A000 (40960). 

In circostanze normali, viene "vista" la 
ROM del BASIC ($A000-$BFFF), i chip 
di I/O ($DOOO-$DFFF), e il Kernal ($E000- 
$FFFF). Caricando in memoria i file auto- 
boot, viene caricato il valore 35 nella lo- 
cazione 1 provocando l'esclusione del- 
la ROM da $E000 a $FFFF e l'abilitazio- 
ne della RAM sottostante. 

Una volta disabilitata la ROM, il micro- 
processore è in grado di "vedere" il file 
autoboot caricato in memoria. Nelle loca- 
zioni $FFFE-$FFFF vengono caricati i 
nuovi valori per il vettore della routine 
principale di sistema IRQ/BRK: sessan- 
ta volte al secondo, oppure ogni volta 
che viene eseguita un'istruzione BRK, il 
computer passa l'esecuzione alla routi- 


ne di sistema nell'indirizzo puntato da 
questo vettore. I file autoboot sostitui- 
scono l'indirizzo della routine IRQ con 
l'indirizzo del programmino in linguaggio 
macchina appena caricato nella RAM 
"sotto" la ROM. 

La parte rimanente di questo programmi- 
no in linguaggio macchina sposta il pro- 
gramma autoboot nei suoi indirizzi nor- 
mali in area BASIC, e ripristina il funzio- 
namento della ROM prima di mandare in 
esecuzione il programma. 

Misteriosi VERIFY ERROR 

Benché il C64 ripristini il contenuto dei 
puntatori aH'inizio delle variabili dopo 
ogni caricamento, Autobooter C64 effet- 
tua da sè questa operazione. Se il pro- 
gramma in linguaggio macchina ha un in- 
dirizzo di caricamento diverso dall'inizio 
del BASIC, il puntatore all'inizio delle va- 
riabili non viene modificato. Ciò permet- 
te di caricare ed eseguire programmi in 
linguaggio macchina senza disturbare 
programmi BASIC già in memoria. Se il 
programma autoboot è in BASIC, il pun- 
tatore viene regolato in modo che • co- 
me al solito - punti alla fine del testo del 
programma. 

Alcuni file autoboot possono indurre in- 
soliti VERIFY ERROR: nulla di preoccu- 
pante, è infatti piuttosto comune che i 
programmi in linguaggio macchinasi au- 
tomodifichino durante la loro esecu- 
zione. 

Naturalmente, un file che si è automodifi- 
cato non sarà più uguale al file presente 
sul dischetto. Analogamente, un pro- 
gramma BASIC salvato da una locazio- 
ne anormale non potrà essere verificato 
con successo. 

Occorre infine prestare attenzione al fat- 
to che alcuni programmi in linguaggio 
macchina modificano il vettore IRQ nel- 
le locazioni $0314-$0315: se cercate di 
attivare un file autoboot in queste condi- 
zioni, il computer andrà probabilmente 
in crash non appena verrà riabilitato l'in- 
terrupt IRQ. Inoltre, occorre segnalare 
che alcune cartucce funzionano perfet- 
tamente con i file autoboot, mentre altre 
provocano strani comportamenti del 
computer. Il sistema migliore per verifi- 
care la compatibilità dei file autoboot 
con le proprie eventuali cartucce è, co- 
me sempre, sperimentare con qualche 
test. 


Autobooter C64 

100 PRINT" (CLR) { 2 GIU '} {WHT } NOME DEL PRO 
GRAMMA DA CARICARE" : INPUTPN$ : rem 17 
110 INPUT "NOME DEL PROGRAMMA AUTOBOOT" ;B 
N$ :rem 108 


120 INPUT "LOCAZIONE DI INIZIO DOPO IL LO 
AD" ; LOC$ : rem 142 

130 IF LOC$="" THEN BASIC=l:GOTO 160 

:rem 175 


10 SUPERCOMMODORE 64 /1 28 10 86 


AUT. MIN. RICH. 




cento e uno premi 


% 




8 - 1 premi verranno messi a disposizio- 
ne degli aventi diritto entro 60 giorni dal- 
la data dell'estrazione. 

9 * Le spese di immatricolazione della 
Alfa 33 4x4 giardinetta saranno a carico 
del vincitore. 

IO * I dipendenti, i familiari, i collabora- 
tori del Gruppo Editoriale Jackson sono 
esclusi dal concorso. 


DIVISIONE PWODICI 


la Tua Rivista. 


In palio, fra tutti gli abbonati, 
una scattante, elegante, rugg 
Alfa 33 4x4 giardinetta 
(1500 cc.) 
nella 
versione 
più 

prestigiosa 
e super 
accessoriata, 
perfettamente a suo agio in ogni 
situazione, potente e nello stesso tempo 
parca nei consumi, protagonista instancabile di mille avventure. 


Il fantastico orologio Time of Greenwich 
modello 120321. Uno strumento di altissima 
perfezione ed esclusività, in edizione limitata 
e personalizzata, realizzata appositamente 
per i fortunati vincitori abbonati Jackson, 
dalla prestigiosa Time of Greenwich. 
Distribuito in Italia da LED ITALY 


1 premio 


100 premi 


1 ■ Il Gruppo Editoriale Jackson S.p.A. 
promuove un concorso a premi in occa- 
sione della Campagna Abbonamenti 
86/87. 

2 - Per partecipare è sufficiente sotto- 
scrivere, entro il 31.3.1987, un abbona- 
mento a una delle 21 riviste Jackson. 

3 - Sono previsti 1+100 premi da sor- 
teggiare fra tutti gli abbonati. 

4 - 1° premio 

Un'automobile Alfa 33 4x4 giardinetta 
(1500 cc.). Gli altri 100 premi consistono 
in altrettanti orologi Time of Greenwich. 


5 - Gli abbonati a più di una rivista 
avranno diritto, per l'estrazione, all'inse- 
rimento de! proprio nominativo tante 
volte quante sono le testate sottoscritte. 

6 - L'estrazione dei 1+100 premi in pa- 
lio avverrà presso la Sede della Jackson 
entro il 30.5.1987. 

7 - L’elenco dei vincitori, ad estrazione 
avvenuta, sarà pubblicato su almeno 10 
delle riviste Jackson. 

La vincita inoltre, sarà comunicata con 
lettera raccomandata a ciascuno dei sor- 
teggiati. 




Jimeof 
Ljreemvich. 

Dal 1884 segna il tempo dell'Universo 


Regolamento del concorso 






140 

IF LEFT$ (LOC$, 1) = 

"$" THEN GOSUB 760 :G 

480 

DATA 162,168 :REM LDX 

#$A8 



OTO 160 



: rem 

30 



: rem 

224 

150 

LOC=VAL ( LOC $ ) 



: rem 

231 

490 

DATA 160,002 :REM LDY 

#$02 


160 

INPUT "VIA RUN/STOP+RESTORE (S/N) 

";RN 



: rem 

188 


$ 



: rem 

.36 

500 

DATA 032,189,255 :REM JSR 

$FFBD 


170 

RN$=LEFT$ (RN$, 1) 



: rem 

90 



: rem 

29 

180 

IF NOT (RN$="S" OR RN$= 

="N") THEN 

160 

510 

DATA 169,000 :REM LDA 

#$00 






: rem 

252 



: rem 

162 

190 

OPEN 15, 8, 15, "I" 



: rem 

225 

520 

DATA 032,213,255 :REM JSR 

$FFD5 


200 

OPEN 8, 8, 8, "0 : "+BN$+",] 

?,W" 

: rem 

235 



: rem 

6 

210 

PRINT#8,CHR$ (167) CHR$ (02) ; 

: rem 

134 

530 

DATA 169,131 :REM LDA 

#131 


220 

PRINT#8 , CHR$ (LEN (PN$) ) 

* 

f 

: rem 

39 



: rem 

186 

230 

PRINT#8,PN$; 



: rem 

166 

540 

DATA 141,002,003 :REM STA 

$0302 


240 

IF RN$="N" THEN 380 


: rem 

130 



: rem 

181 

250 

FOR Ol TO 17 



:rem 

58 

550 

DATA 169,164 :REM LDA 

#164 


260 

READ CODE 



: rem 

207 



: rem 

200 

270 

PRINT # 8 , CHR$ (CODE) ; 


: rem 

85 

560 

DATA 141,003,003 :REM STA 

$0303 


280 

NEXT C 



: rem 

28 



: rem 

185 

290 

DATA 120 

: REM 

SEI 

: rem 

71 

570 

DATA 134,045 :REM STX 

$2D 


300 

DATA 169,052 

: REM 

LDA 

#52 




: rem 

202 





: rem 

137 

580 

DATA 132,046 : REM STY 

$2E 


310 

DATA 141,020,003 

: REM 

STA 

$0314 




: rem 

204 





: rem 

179 

590 

IF BASIC=1 THEN GOSUB 860: 

GOTO 620 

320 

DATA 169,134 

: REM 

LDA 

#134 




: rem 

85 





: rem 

189 ‘ 

600 

Ll-INT (LOC/256) : L2=LOC- (Ll*256) 


330 

DATA 141,024,003 

: REM 

STA 

$0318 




: rem 

203 





: rem 

189 

610 

PRINT#8,CHR$ (76) CHR$ (L2)CHR$ (LI) ; 


340 

DATA 169,234 

: REM 

LDA 

#234 




: rem 

68 



> 


: rem 

193 

620 

IF RN$="S" THEN BU=58+LEN (PN$) +1 


350 

DATA 141,025,003 

: REM 

STA 

$0319 




: rem 

168 





:rem 

193 

630 

IF EN$="N" THEN BU=41+LEN (PN$) +1 


360 

DATA 088 

: REM 

CLI 

: rem 

73 



: rem 

156 

370 

GOTO 390 



:rem 

111 

640 

IF BASIC=1 THEN BU=BU+11 

: rem 

32 

380 

FOR C=1 TO 17: READ CODE: NEXT C 


650 

BL=8 8-BU 

: rem 

154 





: rem 

107 

660 

FOR C=1 TO BL+1 :PRINT#8,CHR$ (0) ; : 

NEXT 

390 

FOR C*=l TO 38 



: rem 

66 


C 

: rem 

136 

400 

READ CODE 



: rem 

203 

670 

PRINT#8 , CHR$ (139) CHR$ (227) 

; : rem 

200 

410 

PRINT#8, CHR$ (CODE) ; 


: rem 

81 

680 

B=679+LEN(PN$)+1 

: rem 

60 

420 

NEXT C 



: rem 

24 

690 

Ll=INT (B/256) : L2=B- (Ll*256) : rem 

156 

430 

DATA 169,002 

:REM 

LDA 

#2 : rem 

83 

700 

PRINT#8 , CHR$ (L2)CHR$ (LI) ; 

: rem 

133 

440 

DATA 162,008 

:REM 

LDX 

#8 :rem 

112 

710 

CLOSE8 

: rem 

70 

450 

DATA 160,255 

:REM 

LDY 

#255 


720 

GET#15,A$:S=ST 

: rem 

4 





:rem 

216 

730 

PRINT A$; 

: rem 

199 

460 

DATA 032,186,255 

:REM 

JSR 

$FFBA 


740 

IF S=0 THEN 720 

: rem 

178 


* 



: rem 

28 

750 

END 

:rem 

115 

470 

DATA 173,167,002 

:REM 

LDA 

$02A7 


760 

L=LEN(LOC$) 

: rem 

88 





: rem 

197 

770 

S-L-l 

: rem 

216 
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Salvare e ricaricare le pagine 
grafiche nel C64 


di S. E. Masters 
trad. e adatt. di E. Stefani 



Sullo scorso numero abbiamo vi- 
sto come creare una pagina gra- 
fica, e cl slamo accorti che ciò 
richiede un procedimento estre- 
mamente lento se effettuato in 
BASIC. Dopo aver creato una 
bella vldeata In alta risoluzione, 
ò alquanto spiacevole dover at- 
tendere Interi minuti ogni volta 
che si desideri ammirarla: molto 
più rapido ed efficiente è II si- 
stema di salvataggio su disco. 

In questo articolo presentiamo due uti- 
lissime routine che permettono rispetti- 
vamente di salvare e ricaricare da disco 
le pagine grafiche insieme a tutti i loro at- 
tributi, sia in modo standard che in mo- 
do multicolore. 

I programmi 1 e 2 costituiscono i carica- 
tori delle routine in linguaggio macchina, 
rispettivamente di salvataggio e di cari- 
camento; i programmi 3 e 4 sono dei di- 
mostrativi delle funzionalità dei primi 
due. 

Vediamo ora come utilizzare queste co- 
mode routine. 

Salvare una pagina grafica 

Per salvare una pagina grafica su disco 
occorre seguire questa procedura: 

1. caricare e attivare il programma 1, il 
quale inserisce in memoria una routine 
in linguaggio maochina. 

2. creare nel modo consueto la pagina 
grafica, sia essa in modo ad alta risolu- 
zione standard piuttosto che multico- 
lore. 


3. eseguire, preferibilmente da program- 
ma, la seguente istruzione: 

OPEN2,8,2,"nomefile,P,W" 

che provvede ad aprire su disco un file 
PRG; il termine 'nomefile' deve ovvia- 
mente essere sostituito dal nome desi- 
derato per la pagina grafica. 


4 . eseguire, preferibilmente da program- 
ma, una SYS1 007 mentre la pagina grafi- 
ca è attivata e visualizzata sullo scher- 
mo. Questa SYS provoca il salvataggio 
su disco della pagina grafica. 

s 

5, eseguire, preferibilmente da program- 
ma, la seguente istruzione: 

CLOSE2 
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A questo punto la pagina grafica sarà 
stata salvata su disco, ovunque essa si 
trovasse, insieme a tutti i suoi attributi 
di colore. 

Ricaricare una pagina grafica 

La procedura da seguire per ricaricare 
da disco una pagina grafica salvata 
con il metodo precedente ò la seguente: 

1. caricare e attivare il programma 2, il 
quale inserisce in memoria una routine 
in linguaggio macchina 

2. eseguire, preferibilmente da program- 
ma, le istruzioni di attivazione della pa- 
gina grafica nel modo desiderato (stan- 
dard o multicolore). 

3. eseguire, preferibilmente da program- 
ma, la seguente istruzione: 

OPEN2,8,2,"nomefile,P,R" 


che provvede ad aprire su disco un file 
PRG in lettura; il termine 'nomatile' deve 
ovviamente essere sostituito dal nome 
posseduto dalla pagina grafica su 
disoo. 

4 . eseguire, preferibilmente da program- 
ma, una SYS881. Questa SYS provoca 
il caricamento da disco della pagina gra- 
fica. 

5. eseguire, preferibilmente da program- 
ma, la seguente istruzione: 

CLOSE2 

A questo punto la pagina grafica sarà 
stata caricata da disco, insieme a tutti i 
suoi attributi di colore, e visualizzata 
sul video. 

I programmi dimostrativi 


I programmi 3 e 4 mostrano come utiliz- 
zare rispettivamente la routine di salva- 
taggio e quella di caricamento. 

Prima di mandare in esecuzione il pro- 
gramma 3 occorre aver caricato ed ese- 
guito il programma 1, mentre prima di 
mandare in esecuzione il programma 4 
occorre aver caricato ed eseguito il pro- 
gramma 2. 

II programma 3 genera e salva su disco 
una pagina grafica contenente una sinu- 
soide, mentre il programma 4 provvede 
al suo caricamento da disco e successi- 
va visualizzazione. 

E' interessante notare che la routine di 
salvataggio "si accorge* automatica- 
mente di quale sia la posizione in memo- 
ria della pagina grafica e della mappa vi- 
deo che ne contiene i colori: ciò è molto 
utile in quanto consente di 'catturare* 
schermate grafiche da altri programmi 
per trasferirle quindi nei propri, nelle lo- 
cazioni che meglio ci aggradano. 


Programma 1 


320 

DATA 

210,255,160,0,132,251,169,96 








: rem 

22 

100 

REM PROGRAMMA 1 :rem 

76 

330 

DATA 

133,252,234,234,177,251,32,210 

110 

SU=0 : 

FORI=68 8T0738 : READX : SU=SU+X : ! 

POKE 



:rem 

117 


I , X : NEXT :rem 

224 

340 

DATA 

255/ 165,252,201, 127,240,7,200 


120 

IFSU<>4855THENPRINT"ERRORE NELLE ! 

DATA 



:rem 

66 


- LINEE 170-220" :STOP :rem 

230 

350 

DATA 

208,242,230,252,208,238,200 


130 

SU=*0 : 

FORI = 8 2 8 TO 1 0 2 2 : READX : SU=SU+X 

:POK 



:rem 

227 


EI,X: 

NEXT : rem 

1 

360 

DATA 

152,201,64,208,232,96,160,0 


140 

IFSU<>31598 THENPRINT " ERRORE NELLE 

DAT 



:rem 

227 


A - LINEE 240-470": STOP :rem 

33 

370 

DATA 

132,251,173,168,2,133,252,177 


150 

PRINT 

'"SCREEN SAVE INSTALLATO" : END 




:rem 

81 



: rem 

98 

380 

DATA 

251,32,210,255,165,252,205,167 

170 

DATA 

173,0,221,41,3,73,3,10,10,10 




: rem 

127 



: rem 

246 

390 

DATA 

2,240,7,200,208,241,230,252 


180 

DATA 

10,10,10,133,254,173,24,208 




:rem 

218 



: rem 

215 

400 

DATA 

208,237,200,152,201,232,208 


190 

DATA 

41,8,10,10,101,254,133,2,105 




:rem 

218 



: rem 

255 

410 

DATA 

231,160,0,132,251,169,216,133 


200 

DATA 

31,141,169,2,173,24,208,41,240 



:rem 

62 



:rexn 

110 

420 

DATA 

252,177,251,32,210,255,165,252 

210 

DATA 

74,74,234,234,101,254,141,168 



: rem 

125 



: rem 

75 

430 

DATA 

201,219,240,7,200,208,242,230 


220 

DATA 

2,105,3,141,167,2,96 :rem 

134 



: rem 

58 

240 

DATA 

160,0,132,251,132,253,165,2, 

133 

440 

DATA 

252,208,238,200,152,201,232 




:rem 

154 



: r em 

222 

250 

DATA 

252,169,96,133,254,120,165,1 

,72 

450 

DATA 

208,232,173,33,208,32,210,255 




: rem 

180 



:rem 

71 

260 

DATA 

41,253,133,1,177,251,170,177 


460 

DATA 

32,204,255,96,32,176,2,32,60 




:rem 

27 



:rem 

26 

270 

DATA 

253,145,251,138,145,253,200 


470 

DATA 

3, 32 ,113 ,3, 32 ,60/3, 32/163,3,96 



: rem 

233 



:rem 108 



280 DATA 208,243,230,252,230,254,165 

:rem 233 

290 DATA 254,201,128,208,233,104,133,1 

:rem 65 

300 DATA 88,234,234,234,96,162,2,32,201 

:rem 122 

310 DATA 255,169,0,32,210,255,165,2,32 

:rem 65 


Programma 2 

100 REM PROGRAMMA 2 :rem 77 

110 SU=0 : FORI-6 8 8T07 3 8 : READX : SU=SU+X : POKE 
I , X : NEXT :rem 224 

120 IFSU<>485 5THENPRINT " ERRORE NELLE DATA 

- LINEE 160-180": STOP :rem 234 
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130 SU=0 : FORI=8 8 1T01 0 0 4 : READX : SU=SU+X : POR 
EI,X:NEXT :rem 0 

140 IFSU<>2 12 9 OTHENPRINT " ERRORE NELLE DAT 
A - LINEE 190-250": STOP :rem 21 

150 PRINT " SCREEN RETRIEVE INSTALLATO" : END 

:rem 153 

160 DATA 173, 0,22 1,41, 3, 73, 3,10, 10/ 10, 10, 
10,10,133,254,173,24,208 :rem 69 
170 DATA 41,8,10,10,101,254,133,2,105,31, 
141,169,2,173,24,208,41,240 :rem 235 
180 DATA 74,74,234,234,101,254,141,168,2, 
105,3,141,167,2,96 :rem 85 

190 DATA 32,176,2,162,2,32,198,255,32,207 
,255,32,207,255,234,160,0,132,251 

: rem 4 9 

200 DATA 165,2,133,252,32,207,255,145,251 
,165,252,205,169,2,240,7,200,208 

: rem 249 

210 DATA 241,230,252,208,237,200,152,201, 

64.208.231.160.0. 132.251.173.168.2 

: rem 7 6 

220 DATA 133,252,32,207,255,145,251,165,2 
52,205,167,2,240,7,200,208,241,230 

:rem 87 

230 DATA 252,208,237,200,152,201,232,208, 

231.160.0. 132.251.169.216.133.252.32 

:rem 177 

240 DATA 207,255,145,251,165,252,201,219, 
240,7,200,208,242,230,252,208,238,200 

:rem 239 

250 DATA 152,201,232,208,232,32,207,255,1 
41,33,208,32,204,255,96,999 :rem 25 


330 IF Z1O0 THEN CLOSE15: PRINT Z1;Z2$;Z3 
;Z4 : rem 51 

340 FOR 1=1 TO 1000 :NEXT I :rem 91 

350 POKE53265,PEEK (53265) AND 223: rem 221 
360 POKE53272,PEEK (53272) AND 247 

:rem 224 


Programma 4 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 


REM PROGRAMMA 4 :rem 79 
POKE56578, PEEK (56578) OR 3:POKE 56576 
, (PEEK(56576)AND252)OR 2 :rem 10 
BASE=6*40 9 6 : POKE53272 , PEEK ( 53272 ) OR8 


: rem 8 

POKE53265, PEEK (53265) OR32 :rem 117 
FOR I=BASE TO BASE+7999 :POKE I,66:NEX 
T :rem 171 
FOR 1=16384+1024 TO 16384+2023 :POKE I 


, 77 :NEXT 

:rem 

91 

OPEN15, 8, 15 

:rem 

37 

OPEN2 , 8, 2, "SINUSOIDE . HR, P, R" 

:rem 

163 

INPUT#15, ZI, Z2$, Z3, Z4 

; rem 

184 

IF Z1O0 THEN CLOSE2 :CLOSE15 

: PRINT 

ZI 


;Z2$;Z3;Z4:GOTO230 :rem 
SYS 881 : rem 
CLOSE2 : rem 
FOR 1=1 TO 2500 :NEXT I :rem 
POKE56576, (PEEK (56576) AND252) OR 

• : rem 


POKE53272, PEEK (53272) AND247 :rem 
POKE53265,PEEK (53265) AND223 :rem 


33 

50 

59 

94 

17 

221 

220 


Programma 3 


100 

REM PROGRAMMA 3 

:rem 

78 

110 

BASE=2*4096:POKE53272, PEEK (53272) OR8 

: rem 3 

120 

POKE53265, PEEK (53265) OR32 

: rem 

116 

130 

FOR I=BASE TO BASE+7999 :POKEI, 0 :NEXT 

:rem 110 

140 

FOR I=1024TO2Q23 :POKEI, 3 :NEXT 

:rem 

189 

150 

FOR X»0 TO 319 STEP.5 

: rem 

33 

160 

Y=INT (90+80*SIN (X/10) ) 

: rem 

178 

170 

CH=INT (X/8) 

: rem 

91 

180 

RO=INT (Y/8) 

: rem 

115 

190 

LN=YAND7 

: rem 

212 

200 

BY=BASE+RO*320+8*CH+LN 

: rem 

237 

210 

BI=7— (XAND7) 

: rem 

114 

220 

POKEBY , PEEK (BY) OR(2 A BI) 

: rem 

168 

230 

NEXT X 

: rem 

44 

240 

POKE1024, 16 

:rem 

31 

250 

FOR 1=1 TO 1000 :NEXT I 

: rem 

91 

260 

OPEN15, 8,15 

: rem 

38 

270 

OPEN2 , 8 , 2 , " S INUSOIDE . HR, P , W" 

: rem 

169 

280 

INPUT#15, ZI, Z2$, Z3, Z4 

: rem 

185 

290 

IF Z1O0 THEN CLOSE2 :CLOSE15 

: PRINT ZI 


;Z2$;Z3;Z4 :GOTO350 

: rem 

37 

300 

SYS 1007 

: rem 

90 

310 

CLOSE2 

: rem 

60 

320 

INPUT#15, ZI, Z2$, Z3, Z4 

: rem 

180 
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Questo utile programma permet- 
te di leggere, modificare e stam- 
pare qualsiasi file sequenziale 
su disco. Utile come editor di fi- 
le testo (per esemplo quelli ge- 
nerati da Easy Script), risulta 
Inoltre di particolare efficacia 
per eliminare eventuali errori do- 
vuti a Inserimenti sbagliati nei fi- 
le generati da programmi di ar- 
chiviazione dati. 

Dopo l'attivazione, il programma vi ri- 
chiederà il nome del file sequenziale su 
cui intendete lavorare, e il numero di pe- 
riferica dell'unità a dischi (il default ò 8). 
Dopo aver chiesto conferma, il file se- 
quenziale verrà letto dal programma e vi- 
sualizzato sul video sotto forma di una 
sequenza di linee numerate, in cui il ter- 
mine di ogni linea ò identificato da un 
"carriage return" CHR$(13). 

Al termine della lettura del file verrà vi- 
sualizzato un menu di selezione che per- 
mette di compiere tutte le operazioni di 
editing sul file stesso. 

La prima opzione consente di listare 
nuovamente il file a video, con o senza 
i numeri di linea che identificano ogni "re- 
cord" del file. Durante il listing è possibi- 
le avere una pausa premendo la barra 
spaziatrice, oppure uscire dall'opzione 
premendo il tasto A. 

L'opzione 2 permette di editare una li- 
nea del file, dopo aver comunicato al 
programma il suo numero progressivo: 
la linea originale viene mostrata, e un 
cursore sottostante vi permette di riscri- 
verla a piacere. La semplice pressione 
di RETURN lascia immutata la linea origi- 
nale. 


L'opzione 3 permette invece di inserire 
una nuova linea all'Interno del file: dopo 
aver inserito il numero progressivo da 
assegnare alla nuova linea si potrà digi- 
tarla normalmente; alla pressione del ta- 
sto RETURN la nuova linea verrà inseri- 
ta al suo posto tra le altre costituenti il 
file. 

Si noti che nelle opzioni 2 e 3 non sono 
ammessi caratteri di controllo all'interno 


delle nuove linee. 

L'opzione 4 permette invece di cancella- 
re una linea dal file, dopo averne specifi- 
cato il numero progressivo e aver dato 
conferma al programma. 

L'opzione 5 permette di rieseguire Se- 
quential File Editor, in modo da poter edi- 
tare un nuovo file sequenziale; ricorda- 
te che, fino a che non si utilizzi l'opzio- 
ne 6, le modifiche effettuate su un file 
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non vengono scritte sul dischetto. 
L'opzione 6 del menu permette infatti di 
riscrivere su disco il file sequenziale mo- 
dificato, con lo stesso oppure con un al- 
tro .nome. Se si decide di utilizzare lo 
stesso nome del file originale, quest'ulti- 
mo viene prima cancellato e poi ri- 
scritto. 


La penultima opzione, la numero 7, per- 
mette di stampare il file su carta regolan- 
do il numero di linee per pagina (che de- 
termina dove avviene il salto della perfo- 
razione tra i fogli e vale normalmente 
66). Se desiderate una stampa conti- 
nua, inserite 0 come valore del numero 


di linee per pagina. 

L'ultima opzione infine provoca l'uscita 
dal programma, dopo aver richiesto con- 
ferma. Anche in questo caso sincerate- 
vi di aver risalvato su disco il file se- 
quenziale contenente le modifiche ap- 
portate. 


Sequentlal File Editor 

10 Z$=CHR$ (20) : A=3000 : IFPEEK (56) <64THENA= 
100 :rera 217 

20 DIMA$(A) SPRINT" (CLR) (WHT) "CHR$ (14) CHR$ 
(8) ; sOPENl,0,0sV=203: IFPEEK (771) =164TH 
ENV=212 : rem 22 

30 LI$=" [< 40 T>] " : rem 21 

40 PRINT" { 8 SPAZI) { 1 SH S JEQUENTIAL 

{ 1 SH FJILE { 1 SH E)DITOR" :PRINTLI$" 
{ 3 GIU*}" : rem 142 

50 PRINT" { 1 SH I INSERISCI IL NOME DEL FI 
LE DA EDITARE E PREMI { 1 SH R) 

{ 1 SH E)( 1 SH T)( 1 SH U)( 1 SH R) 

{ 1 SH NH.2 GIU'}” : rem 95 

60 PRINT">"; : INPUT#1, FI$ : PRINT" {GIU ' )":FI 
$=LEFT$(FI$,16) : rem 217 

70 PRINT" IL NOME E*{ 2 SPAZI } "CHR$ (34) FI$ 
CHR$ (34) :PRINT" (GIU' ) { 1 SH E) ' CORRET 
TO? (S/N) S(SIN)"; ..srem 146 

80 INPUT#1,A$: PRINT : IFLEN (A$) =0THENPRINT" 
{ SU) " :GOTO80 :rem 219 

90 A$=LEFT$ (A$, 1) : IFA$="S"THENPRINT rGOTOl 
1 0 : rem 4 8 

100 RUN :rem 134 

110 PRINT" { 1 SH D ) ISK { 1 SH DJRIVE # (8 
-10) 8 (SIN)"; : INPUT#1, A$ sDR=INT (VAL (A 
$) ) : rem 227 

120 IFDR<8ORDR>10THENPRINT : PRINTSPC (22) " 
(SU) { 7 SPAZI) (SU)" :GOTOHO srem 139 
130 PRINT" (CLR) { 2 SPAZI) { 1 SH R)EADING 
"CHR$ (34) FI$CHR$ (34) :PRINTLI$ 

: rem 23 

140 F2$=FI$+", S, R" s LN=1 : PRINT" { 2 SPAZI) 

1 : "; :rem 128 

150 OPEN8, DR, 8, F2$ :GET#8, A$ :rem 244 

160 IFSTO0THENPRINT" { 1 SH F) ILE 

{ 1 SH N)OT { 1 SH F }OUND" :GOSUB1150 : 
GOSUB1140 :RUN :rem 180 

170 GOTO190 : rem 107 

180 GET#8,A$ : rem 101 

190 IFA$OCHR$ (13) THENA$ (LN) =A$ (LN) +A$ 

: rem 90 

200 IFSTO0THENG0SUB1150 :GOTO260 :rem 243 

210 IFA$=CHR$ (13) THEN230 :rem 62 

220 PRINTA$; rGOTOl 80 :rem 205 

230 B$=”” : IFLN<9THENB$=" " :rem 106 

240 PRINT : LN=LN+1 : PRINTB$ ; LN" : ";:IFST<>0 
THEN260 :rem 198 

250 GOTO180 :rem 105 

260 CLOSE8 : PRINT" (CLR) "SPC (13) " { 1 SH M) A 
IN { 1 SH M)ENU" :PRINTLI$ :rem 157 

270 PRINT" [1] { 1 SH DISTA LINEE" : PRINT" 
(GIU'} [2] { 1 SH E }DITA LINEE" : PRINT" 


(GIU') [3] ( 1 SH I INSERISCI LINEE" 

: rem 180 

280 PRINT" (GIU' } [4] { 1 SH C) ANCELLA LINE 
E" SPRINT" (GIU' ) [5] { 1 SH R)E- 
{ 1 SH R)UN { 1 SH P ) ROGRAMMA” 

:rem 112 

290 PRINT" (GIU' } [6] { 1 SH R)ISALVA FILE 
DOPO EDITING" SPRINT" (GIU' } [7] 

{ 1 SH S) TAMPA IL FILE" s rem 89 

300 PRINT" (GIU' } [8] { 1 SH F } INE PROGRAMM 

A" srem 173 

310 PRINT" (GIU ' } { 1 SH I }NSERIRE LA SCELT 
A E PREMERE { 1 SH R) { 1 SH E) 

{ 1 SH T}{ 1 SH UH 1 SH R)| 1 SH N) 
{GIU*}" : rem 230 

320 PRINT">" ; : INPUT # 1, A$ : A=INT (VAL (A$) ) si 
FA<lORA>8THEN260 srem 177 

330 ONAGOTO340, 520, 600,700, 800,830, 890,10 
0 0 : rem 209 

340 PRINT" (CLR)"SPC ( 13) "{ 1 SH DISTA FIL 
E" : PRINTLI$ : rem 119 

350 PRINT" { 1 SH P)REMI ({ 1 SH A}) PER U 
SCIRE, ({ 1 SH S)( 1 SH P}{ 1 SH A) 

{ 1 SH Z}{ 1 SH I}{ 1 SH O}) PER PAUS 

A" : rem 222 

360 PRINT" (GIU' ) ((RVS) { 1 SH C)(OFF))ON O 
( (RVS ) { 1 SH S } (OFF ) ) ENZA NUMERI DI 
LINEA? C { S IN ) " ; : rem 53 

370 INPUT#l,A$sA$=LEFT$ (A$, 1) : IFA$<>”C"AN 
DA$O"S"THEN370 srem 142 

380 PRINT" (GIU' } " sFORR-lTOLN: IFA$="S"THEN 



410 

: rem 

97 

390 

B$="" : IFR<10THENB$=" " 

: rem 

81 

400 

PRINTB$;R" s "; 

: rem 

205 

410 

PRINTA$ (R) 

: rem 

42 

420 

FORT= ITOl 0 0 s NEXT 

: rem 

236 

430 

GETC$ : IFC$=" "THENNEXT : G0T04 9Ò 




: rem 

13 

440 

IFC$-"A"THENPRINT : PRINT 

"(GIU' } (RVS)* 


{ 1 SH I INTERROTTO *":GOTO490 




: rem 

56 

450 

IFC$<>" "THEN430 

: rem 

19 

460 

PRINT" (RVS)* { 1 SH F ) ERMATO *" 




: rem 

95 

470 

GETC$ s IFC$=""THEN470 

: rem 

93 

480 

PRINT" { SU) { 11 SPAZI)": 

PRINT" {SU}” 

; :G 


OTO430 

: rem 

223 

490 

PRINT" (GIU' ) { 2 SPAZI ) { 

1 SH U)N TAST 


0 PER IL { 1 SH M) AIN { 

1 SH M)ENU 

rt 



: rem 

3 

500 

GETC$ : IFC$=""THEN500 

: rem 

81 

510 

GOTO260 

: rem 

103 

520 

PRINT" (CLR) "SPC (13) "{ 1 

SH EJDITA 



{ 1 SH L) INEA" sPRINTLI$ : PRINT" (GIU 1 } 
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{ 1 SH Q } UALE NUMERO DI LINEA? "; 

:rem 132 

530 INPUT#1, A$ : A=INT (VAL (A$) ) :PRINT 

:rem 97 

540 IFA>0ANDAOLNTHEN560 ' :rem 200 

550 FRINT" {GIU 1 } { 1 SH N}ON VALIDO" :GOSUB 
1150:GOTO520 :rem 49 

560 PRINT" (GIU' ) "A$ (A) :PRINT" (GIU ' } 

{ 1 SH R} IDIGITA LA LINEA 0 PREMI 
{ 1 SH R){ 1 SH E}{ 1 SH T]| 1 SH U) 

{ 1 SH R)| 1 SH NHGIU'}" : rem 16 

570 PRINT">" ; :GOSUB1040 : PRINT :rem 44 

580 IFT$=CHR$ (13) ANDP=OTHENPRINT"(GIU' } 

{ 1 SH I IMMUTATA" :GOSUB1150 :GOTO260 

: rem •! 6 6 

590 PRINT" {GIU* } { 1 SH MJODIFICATA" :GOSUB 
1150 : A$ (A) =A$ :GOTO260 :rem 48 

600 PRINT" {CLR}"SPC(13) " { 1 SH I INSERISCI 
UNA LINEA" :PRINTLI$ : rem 207 

610 PRINT" { 2 GIU'H 1 SH D)OVE DEVE ESSE 

RE INSERITA? {GIU' }" : rem 210 

620 PRINT">"; : INPUT#1, A$ : A=INT (VAL (A$) ) :P 
RINT :rem 229 

630 IFA>0ANDA<=LNTHEN650 :rem 200 

640 PRINT: PRINT" ( 1 SH N}ON VALIDO" :GOSUB 

1150 :GOTO600 :rem 230 

650 PRINT" (GIU'H 1 SH D) IGITA LA LINEA ( 
{ 1 SH R)( 1 SH EH 1 SH T|( 1 SH U) 

{ 1 SH RH 1 SH N) ESCE) (GIU')" 

: rem 7 

660 PRINT">"; :GOSUB1040 :rem 101 

670 IFT$=CHR$ (13) ANDP=0THEN260 :rem 238 

680 FORR=LNTOASTEP-l : A$ (R+l) =A$ (R) : NEXT : L 
N=LN+1 :rem 143 

690 PRINT : PRINT" (GIU' ) ( 1 SH F)ATTO":GOSU 
B1150 : A$ (A) =A$ :GOTO260 : rem 165 

700 PRINT" (CLR)"SPC (13) "{ 1 SH C) ANCELLA 
LINEA" :PRINTLI$ :rem 118 

710 PRINT" (GIU' ) { 1 SH QJUALE LINEA VUOI 
CANCELLARE? (GIU' }" :rem 56 

720 PRINT ">" ; : INPUT#1, A$ : A=INT (VAL <A$) ) 

:rem 31 

730 I F A< lORA>LNTHEN7 0 0 :rem 87 

740 PRINT : PRINT :PRINTA$ (A) :PRINT" (GIU' } 

{ 1 SH C } ANCELLA QUESTA LINEA (S/N)? 

S { SIN } " ; : rem 67 

750 INPUT#1,A$:A$=LEFT$(A$,1) :PRINT 

: rem 22 

760 IFA$="S"THEN780 :rem 51 

770 PRINT" (GIU' } { 1 SH N)ON TOCCATA" : GOSU 
B1150 :GOTO260 :rem 118 

780 FORR=ATOLN:A$ (R)=A$ (R+l) : NEXT : LN=LN-1 
: PRINT "(GIU' } ( 1 SH C ) ANCELLATA" 

: rem 92 

790 GOSUB1150 :GOTO260 :rem 242 

800 PRINT : PRINT" (GIU' }( 1 SH SJICURO (S/N 
) ? S ( S IN ) " ; : INPUT# 1 , A$ : A$=LEFT $ ( A$ , 1 ) 

: rem 1 4 

810 IFA$="S"THENRUN : rem 133 

820 GOTO260 :rem 107 

830 PRINT" (CLR}"SPC (12) "{ 1 SH R)ISALVA 
( 1 SH F } ILE" : PRINTLI $ : rem 143 


840 PRINT" (GIU' ) { 1 SH N)OME DEL FILE":PR 
INT" ( ' * ' PER LO STESSO NOME) (GIU')" 

:rem 153 

850 F3$=FI$ :PRINT">" ; : INPUT#1, A$ : IFA$<>"* 
"THENF3$=A$ :rem 225 

860 OPEN15,DR, 15, "SO : "+F3$ :CLOSE15 :F4$="0 
: "+F3$+", S, W" :OPEN8,DR, 8, F4$ : rem 37 
870 PRINT" { 2 GIU' )":FORR=lTOLN: PRINT" 

{ 1 SH L) INEA: "R" { SU) " :PRINT#8, A$ (R) : 
NEXT : rem 212 

880 CLOSE8: PRINT: PRINT: PRINT" { 1 SH F }ATT 
O" :GOSUB1150 :GOTO260 :rem 113 

890 PRINT" (CLR)"SPC (13) "( 1 SH S } TAMPA DE 
L FILE" : PRINTLI $ treni 159 

900 PRINT" (GIU ' } ( 1 SH Q ) UANTE LINEE PER 
PAGINA HA LA TUA CARTA?" : rem 119 

910 PRINT" (0 = ( 1 SH S } TAMPA CONTINUA) 
(GIU'}" : rem 225 

920 PRINT ">" ; : INPUT#1, LP : LL=0 : IFLP<0ORLP< 
>INT (LP) THEN890 :rem 58 

930 PRINT : PRINT: PRINT" ( 1 SH PJREMI 

{ 1 SH S}{ 1 SH P}{ 1 SH A}{ 1 SH Z) 

{ 1 SH I}( 1 SH 0} PER INIZIARE,' 

{ 1 SH A}' PER FINIRE" :rem 239 

940 GETA$ : IFA$="A"THEN2 60 :rem 153 

950 IFA$=" "THEN970 :rem 226 

960 GOTO940 :rem 117 

970 OPEN 9 , 4 , 7 : FORR» 1T05:PRINT#9: NEXT : FORR 
=1T0LN:PRINT#9,A$(R) :rem 152 

980 LL=LL+1 : IFLL=LP-10THENFORT=lTO10 :PRIN 
T#9 :NEXT:LL=0 :rem 233 

990 NEXT:PRINT#9 :CLOSE9 :GOTO260 :rem 248 

1000 PRINT :PRINT" (GIU' } { 1 SH S}EI SICURO 
(S/N)? S(SIN}"; : rem 43 

1010 INPUT#1, A$ : A$=LEFT$ (A$, 1) :IFA$="S"TH 
ENPRINT" (CLR) " :END :rem 27 

1020 GOTO260 :rem 148 

1030 REM RITORNA COME A$ :rem 80 

1040 P=0:A$="" : rem 162 

1050 PRINTCHR$ (166) CHR$ (157) ; :rem 108 

1060 GETT$ : IFT$=""OR (T$=CHR$ (24) AND A$= " " ) 
THEN1060 : rem 239 


1070 PRINT" "CHR$ ( 157 ) 


rem 195 


1080 IFT$=Z$ANDLEN(A$) >0THENA$=LEFT$ (A$,L 
EN(A$)-1) :PRINTT$; : P-P-l : GOTO1050 

:rem 126 

1090 IFT$=CHR$ (24) THENFORZ=lTOLEN (A$) :PRI 
NTZ$; :NEXT :GOTO1040 :rem 13 

1100 IFT$=CHR$ (13) THENPRINTT$ : RETURN 

: rem 1 0 

1110 IF (ASC (T$) AND127 ) <32THEN1050 

: rem 7 0 

1120 IFP>253THEN1050 : rem 112 

1130 PRINTTS; : A$=A$+T$ :POKEV, 0 :P=P+1 :GOTO 
1050 :rem 176 

1140 OPEN15, 8,15: INPUT#15, A$, B$, C$, D$ :CLO 
SE15: RETURN :rem 33 

1150 FORR=lTO1000 :NEXT :RETURN : rem 101 
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di M. Moore 

trad. e adatt. di S. Colombo 


Questa breve ma Interessantis- 
sima utility per C64 rappresenta 
uno strumento molto efficiente 
per lo sviluppo del programmi: 
simula Infatti la presenza di un 
velocissimo drive con capacità 
di 8 Kbyte. 

Alcuni computer possiedono una carat- 
teristica molto utile chiamata RAM Disk: 
un’area particolare di memoria utilizzata 
per immagazzinare temporaneamente 
programmi odati. 

Anche se, Come principio, il RAM Disk 
funziona come un normale disk drive, i 
dati in esso immagazzinati non sono per- 
manenti ma vanno persi allo spegnimen- 
to del computer; il vantaggio del RAM 
Disk rispetto al drive tradizionale è piut- 
tosto la velocità di caricamento e salva- 
taggio enormemente superiore: il RAM 
Disk è praticamente istantaneo. 

Il Sistema Operativo del C64 non preve- 
de un RAM Disk ma, attraverso questa 
routine in linguaggio macchina, ne potre- 
te disporre in anteprima. 

RAM Disk ha come limitazioni principali 
una capacità massima di 8 Kbyte e la 
possibilità di contenere un solo program- 
ma, anche se più corto di 8 Kbyte. 

Uno strumento di lavoro . 

Esistono molteplici usi per RAM Disk: 
supponiamo che vogliate esaminare ve- 
locemente la directory del dischetto che 
state utilizzando, ma avete un program- 
ma in memoria e non disponete di un 
wedge. Potete salvare il programma su 
RAM Disk, caricare e listare la dire- 
ctory, e riottenere quindi il programma 


dal RAM Disk. Oppure potete mantene- 
re la directory nel RAM Disk e richiamar- 
la a piacere sfruttando la quasi istanta- 
neità del caricamento e del salvataggio. 

I comandi di RAM Disk sono (si noti che 
essi possono essere usati soltanto in 
modo immediato e non da programma): 

<- (freccia a sinistra) salva nel RAM 
Disk il programma attualmente in me- 
moria. 


A (freccia verso l'alto) carica in memoria 
il programma contenuto nel RAM Disk. 

< (simbolo di minore) azzera il contenu- 
to del RAM Disk. 

RAM Disk è studiato per essere utilizza- 
to con i programmi BASIC: non può quin- 
di essere utilizzato per immagazzinare 
programmi in linguaggio macchina che 
inizino da locazioni diverse dall'inizio 
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del BASIC. 

Prima di salvare un programma di RAM 
Disk, assicuratevi che non sia più lungo 
di 8 Kbyte: in caso contrario il computer 
si rifiuterà di immagazzinarlo nei RAM 
Disk, visualizzando nel contempo un 


messaggio di avvertimento. 

L'area utilizzata dal RAM Disk per imma- 
gazzinare i programmi è costituita dalla 
RAM sotto la ROM del BASIC: program- 
mi che utilizzano per altri scopi questa 
stessa area non sono quindi compatibili 


con RAM Disk. 

Inoltre RAM Disk non funzionerà con 
quei programmi che occupano le locazio- 
ni da 49152 a 49416, in quanto queste 
locazioni sono occupate dalla routine di 
gestione di RAM Disk stesso. 


RAM Disk 

10 PRINT" {CLR} { 4 GIU ' ) {WHT } "SPC (8) "LETTU 
RA LINGUAGGIO MACCHINA" : rem 252 

20 F0RI=49152T049416 :READA:POKEI, A:X=X+A: 

NEXT : rem 65 

30 IFX<>33 62 9THENPRINT "ERRORE NELLE DATA! 

":STOP :rem 197 

40 PRINT" {CLR} { 2 GIU'HRVS} SYS 49152 PE 
R ATTIVARE" : rem 71 

50 PRINT" {GIU' } {RVS} SYS 64738 PER DISATT 
IVARE{OFF}{ 14 SPAZI} (RESET DEL COMPUT 
ER) " : rem 53 

60 DATA 169,76,133,115,169,13,133,116,169 
,192 :rem 182 

70 DATA 133,117,96,230,122,208,2,230,123, 
32 :rem 50 

80 DATA 121,0,201,95,208,83,165,43,133,25 
1 :rem 10 

90 DATA 165,44,133,252,165,45,133,253,165 
,46 :rem 127 

100 DATA 133,254,56,229,252,201,32,176,44 
,169 :rem 168 

110 DATA 0,133,2,169,160,133,3,160,0,177 

:rem 152 

120 DATA 251,145,2,230,251,208,2,230,252, 
230 : rem 8 9 

130 DATA 2,208,2,230,3,165,251,197,253,20 
8 : rem 9 

140 DATA 234,165,252,197,254,208,228,230, 
122,208 :rem 63 

150 DATA 15,230,123,230,122,208,2,230,123 
,169 :rem 142 

160 DATA 226,160,192,32,30,171,76,121,0,2 
01 :rem 47 


170 

DATA 

133 

180 

DATA 

65 

190 

DATA 

3 

200 

DATA 

210 

DATA 

5 

220 

DATA 

208 

230 

DATA 

6,230 

240 

DATA 

6 

250 

DATA 
/ 3 

260 

DATA 

270 

DATA 

8 

280 

DATA 

290 

DATA 

300 

DATA 

310 

DATA 

320 

DATA 


94,208,79,165,43,133,251,165,44, 

: rem 130 

252,169,54, 133, 1,165,2, 133,253, 1 

:rem 68 

3.133.254.169.0. 133.2.169.160.13 

: rem 12 

3. 160.0. 177.2. 145.251.230.2.208 

:rem 150 

2,230,3,230,251,208,2,230,252, 16 

: rem 246 

2, 197,253,208,234, 165,3,197,254, 

:rem 127 

228,165,251,133,45,165,252,133,4 

: rem 214 

122,208,2,230, 123, 169, 55, 13.3, A, 7 

:rem . 7 

121.0. 201. 60.208. 166. 169. 160.133 

: rem 50 

169.0. 133.2.168.169.0.145.2.230 

: rem 167 

2,165,2,201,3,144,244,230,122,20 

:rem 252 

141.230.123.76.121.0. 80.82.79.71 

:rem 220 

82,65,77,32,73,83,32,84,79,79 

: rem 111 

32,76,79,78,71,32,70,79,82,32 

: rem 93 

84,72, 69,32,82,65,77,32,68,73 

: rem 9 9 

83,75,46,13,0 :rem 52 




SUPERCOMMUME è bello, però... (ovvero sug- 
gerimenti, idee, critiche, richieste e tutto ciò che vi 
passa per la testa). 


Nome . . 
Cognome 
Via .... 
Città .... 
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SUPERCOMMODORE 


■ SiiSIlI 


La rubrica INPUT/OUTPUT è gratuita ad 
aparta a tutti i (attori. Chi desidera com- 
prare. vendere o cambiare hardware o 


SS 


INPUT/OUTPUT 


software può inviare li tagliando a Gruppo 
Editoriale Jackson - Via Roseltinl, 12 - 




m 


20124 MILANO 




□ COMPRO □ VENDO □ CAMBIO 


' ' r ... ■' V - ' 




□ VIC 20 □ C 16 □ C64 □ PERIF. □ SOFTWARE 

■ ■ • * ■■ '• : • • ' ' . ' ■ ■ - ' : : V ' " ’ " v 




mm 








; . :■ y . s /•' .,a; -/ , - 

• '• : ;Ì ' ^ 

. 






m-j 




« *.**■♦* t 

^ P'A 


- . ) _ i | '• j 




^ : , -■ ■: - : : . mi'&r. - ■ ■ . v : = .. . 

Nome Cognome 

’ ■ m . ... J - i V. 






HP 






CAP 


Via 

Pitta Tal 

**s*»Ss«***s*s* a -•«*##•**»* «-****«'*1 V* * *»***«»i*i** 



Piccola guida per 

l'input 

dei programmi 


■ programmi in BASIC listati su SUPER- 
COMMODORE contengono una particola- 
re codifica dei caratteri di controllo (cursore, 
colore, reverse, eccetera) che permette di ot- 
tenere una maggiore leggibilità dei pro- 
grammi. 

Generalmente, questi listati contengono alcu- 
ni caratteri racchiusi tra parentesi graffe { }; 
queste ultime, che non esistono sulla tastiera 
del computer, non devono essere digitate, 
ma hanno unicamente lo scopo di indicare 
che i caratteri da esse racchiusi sono dei ca- 
ratteri di controllo. 

Ad esempio, {GIU'} indica che occorre pre- 
mere una volta il tasto di cursore verso il bas- 
so, {3 GIU'} indica che il tasto di cursore ver- 
so il basso dovrà essere premuto tre volte. 

Se tra le parentesi graffe è racchiuso un sin- 
golo carattere, quest'ultimo deve essere pre- 
muto insieme al tasto CTRL (ad esempio, in- 
contrando {A} si dovrà premere il tasto CTRL 


insieme al tasto A). 

Invece i caratteri racchiusi tra parentesi qua- 
dre e simboli di maggiore e minore [< >] de- 
vono essere premuti unitamente al tasto 
Commodore (nell'angolo inferiore sinistro 
della tastiera). Ad esempio, [<A>] indica che 
deve essere premuto il tasto Commodore in- 
sieme al tasto A. 

Infine, alcuni caratteri racchiusi dalle parente- 
si graffe preceduti dalle lettere SH: ciò indica 
che il carattere seguente deve essere 
digitato tenendo premuto il tasto SHIFT. 

La tabella seguente riporta, per ogni caratte- 
re di controllo, la codifica utilizzata nei nostri 
listati. 

I listati in linguaggio macchina (totalmente nu- 
merici) non possono invece essere copiati di- 
rettamente con il computer, ma richiedono l'u- 
tilizzo dello speciale programma MLX, riporta- 
to, insieme alle istruzioni per il suo utilizzo, in 
altra parte della rivista. 


Quando leggete: 

{ CI.R ] 

{ HOME } 

{SU} 

{GIU' } 

{SIN} 

{DESI 
{ RVS } 

(OFF } 

{ BLK } 
i WHT } 
i RED ì 


Premete: Vedrete: 

ì£j 


[ SHIFT 

* 

clr/home] 




clr/home] 


■ 

|f[ CRSR Hi 

issili 

[ SHIFT I 

I<=CRSR =>] 


cm 


CTRL 


CTRL 


CTRL 


CIRI 


□ 



crai >ii<i:Hiii rj 



il 






E! 


CTRL 


CTRL 


CTRL 


CTRL 


CTRL 


Quando leggete: Premete: 

{CYN } 

{PUR} 

{ GRN } 

{BLU} 

{YEL} 

[<1>] g 

[< 2 >] □ 

f < 3 > ] □ 

[ 4 4 > ] 23 

K5>! H 

k 6 > i □ 


Vedrete: 




Q 




□ 





E 


Quando leggete: Premete: 

( < 7 > ] □ 

[ < 8 > ] 

{Fi} 

{ F2 } 

{ F3 } 

{ F4 } 

{ F5 } 

{ F6 } 

{ F7 } 

t F8 f 


Vedrete: 

□ 
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di K. Nonemaker 

trad. e adatt. di S. Colombo 


Tra le Infinite applicazioni del 
computer c'è anche quella della 
pubblicità: tutti abbiamo visto 
degli schermi posti ad arte nelle 
vetrine di negozi, che reclamiz- 
zano questo o quel prodotto. 
Con questa utility potrete crea- 
re efficaci messaggi, lunghi fino 
a 250 caratteri, che scorrono 
orizzontalmente sullo schermo. 

Dopo aver dato il RUN a Marquee, dovre- 
te inserire alcuni parametri relativi alla 
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posizione sullo schermo del messaggio 
da visualizzare. Vi verranno infatti ri- 
chieste la distanza dei caratteri dalla 
parte superiore dello schermo e la velo- 
cità di scorrimento orizzontale del mes- 
saggio. La semplice pressione del tasto 
RETURN provoca da parte del program- 
ma l'assunzione dei valori di default vi- 
sualizzati. 

La seconda schermata vi permette di se- 
lezionare i colori di visualizzazione per il 
fondo, il bordo e il testo del messaggio: 
anche qui la semplice pressione del ta- 
sto RETURN provoca l'assunzione dei 
valóri di default visualizzati. 

La terza schermata infine vi chiede di di- 
gitare il contenuto del messaggio: esso 
può essere lungo fino a 250 caratteri 


(spazi compresi) e può contenere qual- 
siasi lettera, numero o segno di interpun- 
zione, tranne l'asterisco. 

A questo punto, vengono automatica- 
mente calcolati i dati da assegnare alla 
forma degli SPRITE costituenti i vari ca- 
ratteri alfanumerici del messaggio; vie- 
ne visualizzato un contatore che partirà - 
decrementandosi - da un valore tanto 
più alto quanto più è lungo il messaggio 
stesso; messaggi molto lunghi possono 
richiedere attese piuttosto consistenti. 
Quando il contatore raggiunge il valore 
zero, lo schermo viene pulito e il mes- 
saggio inizia a scorrere sullo schermo, 
ripetendosi fino a che non si interrompa 
l'esecuzione del programma con 
RUN/STOP e RESTORE. 




Marquee 

100 


110 

120 

130 

140 

150 

160 

170 

180 


PRINT" {CLR} { 7 GIU' }{WHT} "SPC (14) "ATT 
ENDERE. . :GOSUB910 : rem 203 
DIM Cl$ (256) ,G$ (256) , J{256) : rem 219 
PRINT" {CLRH 3 GIU'M 16 SPAZI JMARQUE 
E" :rem 58 
PRINT" { 5 GIU' }DISTANZA DALLA CIMA DE 
LLO SCHERMO " : rem 17 
INPUT" (DA 50 A 200 ; DEFAULT : 100) " ;H$ 


41 

126 

40 

133 

INPU 


190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 


: rem 

H=VAL(H$):IF H=0 THEN H=100 : rem 
IF H<50 THEN H=50 :rem 

IF H>200 THEN H=200 : rem 

PRINT" (GIU' } VELOCITA' { 2 SPAZI}" 

T" (DA 1 A 9 ; DEFAULT : 5) ";SP$ 

:rem 57 

SP=VAL(SP$) : IF SP=0 THEN SP=5 

: rem 14 6 

IF SP<1 THEN SP=1 : rem 113 

IF SP>9 THEN SP=9 : rem 132 

PRINT" (CLR) { 7 SPAZI) MENU COLORI" 

: rem 245 


NERO{ 5 SPAZI} 9) A 

: rem 8 3 

BIANCO { 2 SPAZI} 10 

: rem 12 
3 SPAZI } 11) 

: rem 2 6 
3 SPAZI} 12) 

: rem 9 
3 SPAZI } 13) 
:rem 255 
3 SPAZI} 14) 
:rem 250 
BLU { 5 SPAZI} 15) A 

: rem 123 
GIALLO { 2 SPAZI) 16 

:rem 132 


ROSSO { 
CIANO { 
VIOLA { 
VERDE { 


320 

330 


340 

350 

360 

370 

380 

390 

400 


410 

420 


PRINT" ( 3 SPAZI }1) 

RANCIO" 

PRINT" { 3 SPAZI}2) 

) MARRONE" 

PRINT" { 3 SPAZI} 3) 

ROSA" 

PRINT" { 3 SPAZI} 4) 

GRIGIO SCURO" 

PRINT" { 3 SPAZI} 5) 

GRIGIO MEDIO" 

PRINT" { 3 SPAZI} 6) 

VERDE CHIARO" 

PRINT" { 3 SPAZI} 7) 

ZZURRO" 

PRINT" { 3 SPAZI} 8) 

) GRIGIO CHIARO" 

PRINT" {GIU' } COLORE DELLO SFONDO 
{ 4 SPAZI} (DEFAULT 12 ) " : INPUTCL$ ( 0 ) 

: rem 42 

CL (0) “VAL (CL$ (0) ) : IF CL(0)=0 THEN CL ( 
0 ) =12 :rem 111 

PRINT" (GIU' } COLORE DEL BORDO 
{ 3 SPAZI} (DEFAULT 14) " : INPUTCL$ (4) 

: rem 6 8 

CL (4) =VAL (CL$ (4) ) : IF CL(4)=0 THEN CL( 
4)=14 :rem 131 

PRINT" (GIU' } COLORE DEL MESSAGGIO (DEF 
AULT 1) " :INPUTCL$ (2) : rem 57 

CL (2) =VAL (CL$ (2) ) : IF CL(2)=0 THEN CL ( 
2)=1 : rem 73 

PRINT" (CLRJDIGITA IL MESSAGGIO:" 

: rem 30 

PRINT " {RVS } {OFF}"; : rem 75 

POKE198/ 0 :WAIT198, 1 :GETB$ :rem 183 

IF B$=CHR$ (17) OR B$=CHR$(145) OR 

B$=CHR$ (157) OR B$-CHR$ (2 9) THEN390 

:rem 175 

PRINT " { SIN} " ; B$ ; : rem 223 

IF B$=CHR$ (34) THEN PRINT CHR$(34)CHR 
$ (20) ; : rem 229 


430 IF B$=CHR$ ( 13 ) AND A$<>"" THEN470 

:rem 63 

440 IF B$=CHR$ ( 13) THEN370 : rem 73 

450 IF B$OCHR$ (20) THEN A$=A$+B$ :GOTO380 

: rem 145 

460 L=LEN(A$) : A$=LEFT$ (A$, L-l ) :GOTO380 

:rem 125 

470 A$=A$+" { 5 SPAZI}" : rem 17 

480 
490 
500 


L=LEN(A$) : A=0 
A=A+1 

PRINT " {CLR} CONTEGGIO 


1t 


: rem 162 
: rem 18 4 
4 *L-4 *A+4 


: rem 

C$=MID$(A$,A,1) : rem 

N=ASC (C$) : IF N>64 THEN N=N-64 

: rem 

IF J (N) =1 THEN760 : rem • 

CM=0 : J (N) =1 : rem 

IF N=44 OR N=59 THEN CM=1 : rem 
POKE56334, 0 :POKEl, 51 :FOR F=1 TO 8 

: rem 

570 B=PEEK(53247+8*N+F) :R$=CHR$(B) 

: rem 

580 Cl$ (N) =C1$ (N) +R$ : rem 

590 


510 

520 

530 

540 

550 

560 


4 

184 

15 

74 

39 

227 


99 

233 


600 

610 

620 


NEXT F :POKEl, 55 :POKE56334, 129 

: rem 137 

D$ =M " : rem 127 

FOR D=1+CM TO 21+CM : rem 172 

C2=ASC (MID$ (Cl$ (N) , D, 1) +CHR$ (0) ) 

:rem 114 

630 C6=(C2 AND 1)*7+(C2 AND 2)*56/2+(C2 A 
ND 4) *192/4 : rem 135 

640 IF D=6 THEN PRINT " {CLR}CONTEGGIO . 

. 4*L-4*A+3 : rem 125 

IF D=12 THEN PRINT " (CLR) CONTEGGIO . 

: rem 17 0 

PRINT " {CLR} CONTEGGIO . 


650 


660 


tl 


4*L-4*A+2 
IF D=18 THEN 



. " ; 4*L-4*A+1 

: rem 

176 

670 

C5=(C2 AND 4) *1/4+ (C2 AND 8)*14/8+(C2 


AND 16) *112/16+ (C2 AND 32) 

*128/32 



: rem 

208 

680 

C4=(C2 AND 32) *3/32+ (C2 AND 

64) *28/64 


+(C2 AND 128) *224/128 

: rem 

135 

690 

D$=D$+CHR$ (C4) +CHR$ (C5) +CHR$ (C6) 




: rem 

139 

700 

NEXT D 

: rem 

26 

710 

E$="" :F$="" 

: rem 

167 

720 

FOR D=1T021 STEP 3 

: rem 

167 

730 

E$=MID$ (D$, D, 3) : F$=F$+E$+E$+E$ 




: rem 

205 

740 

NEXT D 

: rem 

30 

750 

G$ (N) =F$ 

: rem 

77 

760 

IF A<L THEN490 

: rem 

193 

770 

POKE532 8 1 , CL ( 0 ) -1 : POKE532 80 

, CL ( 4 ) - 

1 



: rem 

115 

780 

PRINT " { CLR } " : B=2 4 8 : FORA=2 040T02047 

: PO 


KEA, B : B=B+1 :NEXT : POKE53271, 

255 




: rem 

74 

790 

POKE53277, 255 : F0RA=858T08 67 

: POKEA, 

110 


+SP*15 :NEXT : SYS 49158 

: rem 

174 

800 

SN=0 :Q=L-3 ' 

: rem 

26 

810 

Q=Q+l!lF Q>L THEN Q=1 

: rem 

102 

820 

N=ASC (MID$ (A$,Q, 1) ) 

: rem 

219 

830 

IF N>64 THEN N=N-64 

: rem 

191 
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JACKSON 


per il tuo’computertempó’ libero 



Audiotest, rassegne, 
computer music, 
servizi, interviste 
e uno speciale inserto 
“Bit-Musica” 
per chi suona 
col proprio personal. 




La più bella 
e ricca rivista 
di videogames 
home computer 
con recensioni 
di giochi 
sempre nuovi 
e tanti programmi 
per Atari, Commodore, 
Sharp, Sinclair, 

Texas ... 


e 


« yiuum piu 

entusiasmanti 
per C64 
importati 
dall’Inghilterra 
mai presentati 
in Italia. 

Una sfida Jackson 
al già visto, 
al già fatto, 
al ...già registrato. 


per gli utenti 
di Commodore 
64 e 128. 
Giochi, Utilities 
e notizie. 


in busta chiusa inviate questo coupon a: 
Gruppo Editoriale Jackson 
201 24 Mi - Via Rosellini, 1 2 

□ Desidero ricevere GRATIS un numero 

della Rivista 



(allego L. 1 .000 in francobolli per 
contributo spese di spedizione) 

□ Desidero essere informato sulle 
prossime iniziative del 
Gruppo Editoriale Jackson. 


... tienile 
vicino 
al tuo 
joystick ! 



Nome 

Cognome 

Professione 

vio Tel. 

CAP Città 


GRUPPO EDITORIALE 

JACKSON 

Mibno-Son Fror^tsco-Lordro^Aodrid 



i 



840 SN=SN+1 : IF SN>8 THEN SN=1 : rem 149 
850 SO=SN-6 : IF SOCI THEN SO=SO+8:rem 107 
860 SYS 49155/ SN-1, 340, H :rem 7 

870 S YS 49152, G$(N) , SN-1 : rem 4 

880 POKE53269,PEEK (53269) AND (255-2 A (SO-1) 
) OR2 A (SN-1) :POKE53287+SN-l,CL(2) -1 

: rem 10 

890 FOR CT=1 TO (7-SP) *25 :NEXT CT 

: rem 4 1 

900 GOTO810 : rem 107 

910 C=0 : F0RA=49152T04 9363 : READB : POKEA, B :C 
=C+B:NEXTA:IFC=25321THENRETURN 

: rem 195 

920 PRINT"ERRORE NELLE DATA": STOP 

: rem 6 9 

930 DATA 76,125,192,76,187,192,169,27,141 
, 17,208, 169,127, 141, 13, 220, 169, 32, 141 

: rem 2 8 

940 DATA 20,3,169,192,141,21,3,169,129,14 
1,26,208, 96,169, 1, 141,25,208,162 

: rem 1 6 

950 DATA 3,32,93,192,202,16,250,162,14,16 
0,7, 169, 0,133, 2, 185, 70, 3, 157: rem 60 
960 DATA 0,208,165,3,157,1,208,185,80,3,7 
4,38,2,202,202,136,16,234,165 

:rem 113 

970 DATA 2,141,16,208,173,13,220,41,1,240 
,3,76,49,234,76,188,254, 160,7 

: rem 119 

980 DATA 185,60,3,56,237,90,3,153,60,3,18 
5,70,3,233,0,153,70,3, 185 : rem 176 

990 DATA 80,3,233,0,153,80,3,136,16,227,9 
6,32,253,174,32,139,176,160,1 

: rem 121 

1000 DATA 177,71,153,250,0,200,192,3.208, 
246,32, 178,192,169,0,133,254, 132,253 

: rem 196 

1010 DATA 162,5,6,253,38,254,202,16,249,1 
65,254,24, 105, 62, 133, 254, 160, 63, 177 

:rem 158 

1020 DATA 251,145,253,136,16,249,96,32,25 
3,174,32,158,173,76,170,177,32,178,1 
92 :rem 78 

1030 DATA 132,253,32,178,192,166,253,157, 
80,3,152,157,70,3,32,178,192,166,253 

:rem 221 

1040 DATA 132,3,96 :rem 111 
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ni ifflf MlITlì'W 



di G. L. Smith 

trad.e adatt. di S. Colombo 




Gestire il bilancio casalingo di- 
venta facile e divertente con 
questo programma. Avrete in un 
lampo i totali delie entrate e del- 
le uscite settimana per settima- 
na, con la possibilità di pianifi- 
care le spese e tener conto di 
eventi particolari come le vacan- 
ze oppure un regalo di com- 
pleanno. 

Budget Planner è un mini spreadsheet 
scritto interamente in BASIC e progetta- 
to in particolare per gestire entrate e 
uscite settimanali nell'arco di un intero 
anno. Budget Planner sommerà una co- 
lonna (equivalente alle entrate e uscite 
di una settimana) e presenterà un tota- 
le; quest'ultimo comparirà nella settima- 
na successiva come bilancio previsiona- 
le della nuova settimana. 

Dopo il RUN, Budget Planner richiede un 
nome di file relativo ai dati da caricare; 
dal momento che lo utilizzate per la pri- 
ma volta e non disponete di dati già regi- 
strati, premete semplicemente RETURN 
alla domanda del programma. 

Budget Planner vi chiederà quindi la da- 
ta di inizio del calcolo del vostro budget 
(tipicamente la data attuale, se non di- 
sponete di dati riguardanti il periodo pre- 
cedente); dovrete operare tre diversi in- 
serimenti, relativi al giorno, al mese e al- 
l'anno. 

Il giorno va inserito come un numero (da 
1 a 31), il mese come un'abbreviazione 
composta dai primi tre caratteri (per 
esempio GEN, FEB, MAR, eccetera), e 
l'anno va inserito con tutte e quattro le 
sue cifre (per esempio 1 986). 

Lo schermo visualizzerà quindi quattro 
colonne di dati, dove la prima contiene 


le etichette descrittive del contenuto di 
ciascuna riga, inizialmente sono presen- 
ti soltanto due righe, etichettate rispetti- 
vamente PREVB1L (previsione di bilan- 
cio) e TOTALE. 

Le tre colonne rimanenti contengono i 
dati relativi al budget: il numero della set- 
timana è mostrato nella parte sinistra di 
ciascuna colonna, mentre la data relati- 
va alla settimana è mostrata sopra cia- 


scuna colonna. 

Quando utilizzate i tasti di cursore a de- 
stra e cursore a sinistra per spostarvi at- 
traverso i dati del budget, i numeri della 
settimana cambieranno per mostrare 
sempre a quale settimana si riferisce la 
colonna su cui vi trovate. 

Potete inserire entrate e uscite digitan- 
do il loro ammontare (che appare in alto 
sullo schermo) e premendo RETURN. 


SUPERCOMMODORE 64 /1 28 10/86 


25 










Poiché lo spazio per i numeri è limitato, 
vi consigliamo di inserire ogni cifra diret- 
tamente in "lire pesanti": un buon siste- 
ma per abituarsi intanto al nuovo corso 
valutario. 

Nell'inserimento dei dati sono abilitati 
soltanto i tasti numerici, i segni "+" e "-" 
e il punto decimale; il tasto DEL può es- 
sere utilizzato per effettuare correzioni, 
prima di premere RETURN. 

I tasti cursore vengono utilizzati per 
spostarsi tra i dati del budget con il gros- 
so cursore rettangolare: per modificare i 
dati contenuti in una casella è sufficien- 
te posizionarvici sopra con il cursore e 
digitare il nuovo valore. Non sono inve- 
ce modificabili i dati relativi alla riga del 
totale (che sono controllati dal compu- 
ter). Si noti che i tasti di cursore su e 
cursore giù funzioneranno soltanto 
quando disporrete di un numero superio- 
re di righe relative ad entrate o uscite; il 
movimento verticale è comunque limita- 
to a un massimo di 1 8 righe, corrispon- 
denti a un'intera schermata 

I tasti funzione e gli altri co- 
mandi 

La pressione dei tasti funzione esegue 
una varietà di funzioni diverse. Poiché il 
programma é scritto interamente in BA- 
SIC, in alcuni casi sarà necessaria una 
breve attesa intercorrente tra la pressio- 
ne del tasto di comando e l'esecuzione 
della funzione corrispondente. 

Se si preme Pi appare nella parte alta 
dello schermo una sintetica finestra di 
aiuto comprendente tutti i comandi di 
Budget Planner. 

Per spostarsi su una particolare settima- 
na, premete F2: potete andare su qua- 
lunque settimana inserendo il suo nume- 
ro indicativo (la settimana 1 é la prima 
del budget, mentre la numero 52 é l'ulti- 
ma). Potete inoltre effettuare degli spo- 
stamenti "relativi", utilizzando il segno 
"+" o "-" davanti al numero della settima- 


na: per esempio -3 provocherà uno spo- 
stamento all'indietro di tre settimane, 
mentre +2 provocherà uno spostamento 
in avanti di due settimane. 

Questo metodo ò molto più rapido rispet- 
to allo spostamento attraverso la pres- 
sione dei tasti cursore. 

La pressione di SHIFT+E provocherà in- 
vece lo spostamento in corrispondenza 
della fine del mese successivo (utile 
quando si tratta di inserire valori relativi 
a conti o fatture pagate a fine mese). 

F3 corrisponde al comando LOAD: co- 
me sempre, occorre inserire un nome di 
file, mentre la pressione del tasto RE- 
TURN provoca l'uscita dal comando e il 
ritorno al budget. 

Analogamente, il tasto F4 corrisponde 
al SAVE: è buona norma utilizzare l'an- 
no del budget come nome del file. An- 
che qui, la pressione di RETURN al po- 
sto del nome del file provoca l'uscita dal 
comando e il ritorno al budget. 

Per aggiungere una nuova riga, utilizza- 
te F5 (etichettato come +RIGA nella fine- 
stra di aiuto): verrà inserita una nuova ri- 
ga sotto la posizione del cursore. Il pro- 
gramma vi chiederà un nome da asse- 
gnare come etichetta alla nuova riga, 
lungo al massimo dieci caratteri. Anche 
qui la semplice pressione di RETURN 
cancella l'operazione e provoca il ritor- 
no al budget. 

Dopo aver assegnato un nome alla nuo- 
va riga, dovrete specificare se si tratta 
di una riga relativa a entrate oppure a 
uscite, premendo il tasto E oppure il ta- 
sto U. 

Supponendo che abbiate selezionato 
una riga di uscite, ogni valore inserito in 
quella riga sarà trattato come negativo 
se relativo a uscite, e positivo se relati- 
vo a entrate (ovvero non occorre far pre- 
cedere dal segno meno i numeri relativi 
alle uscite, mentre occorre per quelli re- 
lativi alle entrate). Viceversa se si sele- 
ziona una riga di entrate. 

In modo analogo, la pressione di F6 can- 


cella la riga su cui si trova il cursore, do- 
po aver richiesto conferma. 

Il tasto F7 controlla il calcolo di un nuo- 
vo bilancio: quest'ultimo non viene infat- 
ti ricalcolato per ogni nuovo inserimen- 
to, ma soltanto alla pressione di F7 (ciò 
perchè il ricalcolo richiede un tempo di- 
pendente dal numero di dati inseriti, che 
può essere ragguardevole se ci si trova 
verso la fine dell'anno). 

La pressione di F8 provoca la stampa 
dei risultati (assicuratevi che la stam- 
pante sia collegata e accesa): potete 
specificare un intervallo di mesi da stam- 
pare, rispondendo alle domande del pro- 
gramma con le abbreviazioni di tre carat- 
teri dei nomi dei mesi. 

La pressione di SHIFT+D provoca, con il 
principio dell'interruttore, la visualizza- 
zione o meno delle cifre decimali a de- 
stra dei numeri del budget. 

SHIFT+F trova il successivo valore ne- 
gativo nella colonna dei totali: se anda- 
te "in rosso" il totale negativo viene mo- 
strato di questo colore per segnalarvi 
che le uscite sono state superiori alle 
entrate. 

SHIFT+M permette di mensilizzare una 
spesa o un'entrata: serper esempio, al- 
la fine di ogni mese pagate un affitto, in- 
serite la cifra dell'affitto relativa al primo 
mese e, invece di premere RETURN, pre- 
mete SHIFT+M; la stessa cifra verrà au- 
tomaticamente ripetuta nell'analoga ca- 
sella di ogni mese successivo. 

SHIFT+W esegue le stesse funzioni di 
SHIFT+M, ripetendo la cifra per tutte le 
settimane invece che per tutti i mesi 
successivi. 

SHIFT+T permette di utilizzare il registra- 
tore invece del drive come memoria di 
massa, mentre SHIFT+Q seleziona inve- 
ce il drive. Si noti che il programma assu- 
me come default l'unità a dischi: chi pos- 
siede soltanto il registratore dovrà per- 
tanto, prima di salvare i dati, utilizzare il 
comando SHIFT+T. 


Budget Planner 

100 DEV=8 :GOTO1850 :rem 38' 

110 PRINTHM$ ; LEFT$ (X$,X) ; LEFT$ (Y$,Y) ; :RET 
URN :rem 229 

120 A=ABS (X) + .005- .5* (DP=0) :A1=INT(A) :A$= 
MID$ (STR$ (Al) ,2) : IFX<0THENA$="-"+A$ 

: rem 184 

130 IFDPTHEN A2$=MID$ (STR$ (INT ( (A-Al) *100 
) ) , 2 ) : IFLEN (A2$) <2THENA2$="0"+A2$ 




: rem 

52 

140 

IFDPTHENA$=A$+" . "+A2$ 

: rem 

77 

150 

A$=RIGHT$ (SP$+A$, F) : RETURN 

: rem 

14 

160 

A$=LEFT$ (SP$, (X-LEN (A$) ) /2) +A$ : RETURN 



: rem 

66 


170 FORI=lTONW : A=0 : FORJ=OTONR-1 : A=A+TB ( J, 
I) :NEXT :TB (NR, I) =A: TB (0, 1+1) =A:NEXT 

:rem 239 

180 FORI=1TONW:MM=0 : IFTB (NR, I) <0THENMM=-1 
: I=NW : rem 186 

190 NEXT : RETURN : rem 243 

200 A$=>RIGHT$ (SP$+"SETT"+STR$ (CW) , F-2) :X= 
2 : Y=3 :GOSUB110 rPRINT A$; : RETURN 

: rem 114 

210 A$=”BUDGET PLANNER"+STR$ <YR) :X=40 :GOS 
UBI 60 : rem 12 

220 PRINTCL$ ; FG$ ; A$ : PRINTD$ : PRINTEA$ : EA$= 
" " : rem 101 

230 GOSUB2 8 0 : FORI-OTONR : IFMMANDI=NRTHENPR 
INTDEBT$ ; : rem 95 
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240 

PRINTHM$;LEFT$ (Y$, 1+5) ; :A$ 

=TB$ ( I ) 

:GOS 

690 

GOSUB210 :GOTO350 

: rem 

189 


UB150 :PRINTA$;FG$; 

: rem 

23 

700 

IFCC<>3THENCC=CC+1 :CW=CW+1 :GOTO630 

250 

FORJ=WTOW+2 : IFI=NRANDTB (I, 

JX0THENPRI 



: rem 

64 


NTDEBTS; 

: rem 

193 

710 

IFCW=NWTHEN37 0 

:rem 

108 

260 

X=TB ( I, J) : GOSUB120 : PRINTAS 

; FG$ ; 


720 

CW=CW+ 1 : W=W+ 1 : GOSUB5 8 0 

: rem 

62 



: rem 

115 

730 

GOSUB210 :GOTO350 

: rem 

184 

270 

NEXT : NEXT : RETURN 

: rem 

107 

740 

IFLEN (D$) <10THEND$=D$+C$ : 

PRINTHM$ 

;DN$ 

280 

GOSUB2 0 0 : A=D : B=M : C= YR 

: rem 

19 


;D$;LEFT$ (SP$, 10-LEN(D$) ) 

:GOTO370 


290 

F0RZ=1T03 

: rem 

32 



: rem 

66 

300 

A$=STR$ (D) +MNTH$ (M) :GOSUB150 :PRINTA$; 

750 

GOTO370 

: rem 

111 



: rem 

194 

760 

PRINT HM$;DN$ ; SP$ :PRINTSP$ : rem 

100 

310 

GOSUB580 :NEXT 

: rem 

42 

770 

ONASC (C$) -132GOSUB780, 870 

, 980, 1090, 11 

320 

D=A :M=B : YR=C 

: rem 

194 


00/1250,1330, 1400 :GOTO350 

: rem 

11 

330 

PRINT" { 40 SH C}” 

: rem 

223 

780 

X=0 : Y=0 :GOSUB110 : PRINTWHS 

; "<F1>HELP 

340 

RETURN 

: rem 

119 


{ 3 SPAZI )<F2>GOTO{ 2 SPAZI )<E>FINE M 

350 

GOSUB200 :X=TB (CR,CW) :GOSUB120 :B$= 

RV$+ 


ESE { 3 SPAZI}" 

: rem 

9 


A$+NV$ :X=CC*10 : Y=CR+5 :GOSUB110 


790 

Y=Y+1 :GOSUB110 :PRINTWH$; " 

<F3>LOAD 




: rem 

37 


{ 2 SPAZI) <F4>SAVE{ 2 SPAZI }<F>CERCA 

360 

PRINTBS; 

: rem 

199 


NEG{ 3 SPAZI}" 

: rem 

174 

370 

GETC$ : IFC$=” "THEN37 0 

: rem 

91 

800 

Y-Y+l : GOSUB11 0 : PRINTWHS / " 

<F5>+RIGA 

380 

IFC$="+"ORC$“"-"ORC$=" . "OR(C$>="0 

“AND 


{SPAZI} <F6>-RIGA <M>SPESE MESE 



C$<="9") THEN740 

: rem 

236 


{ 2 SPAZI}" 

: rem 

210 

390 

IFC$=UP$THEN610 

: rem 

94 

810 

Y=Y+1 : GOSUB11 0 : PRINTWHS ; " 

<F7>CALC 


400 

IFC$=DN$THEN640 

: rem 

70 


{ 2 SPAZI} <F8>STAMPA{ 2 

SPAZI }<W>SPE 

410 

IFC$=LF$THEN660 

: rem 

73 


SE SETT" 

: rem 

210 

420 

IFC$=RT$THEN700 

:rem 

89 

820 

Y=Y+1 : GOSUB1 1 0 : PRINTWHS ; " 

<Q>DISCO 


430 

IFC$=CR$THENRETURN 

: rem 

146 


{ 3 SPAZI }<T>NASTRO{ 2 SPAZI }<D>EC IMA 

440 

IFC$=BK$THENIFLEN (D$) <>0THENC$= ,,M 

:D$= 


LE{ 4 SPAZI}" 

:rem 

202 


LEFT$ (D$,LEN(D$) -1) :GOTO740 :rem 

170 

830 

Y=Y+1 :GOSUB110 :PRINT"<PREMI UN TASTO 

450 

GOSUB1 1 0 : PRINT A$ ; 

: rem 

18 


{ 2 SPAZI)" 

: rem 

98 

460 

IFASC (C$) >132ANDASC (C$) <141THEN760 

840 

GETA$ : IFAS-" "THEN840 

: rem 

91 



: rem 

140 

850 

PRINTFGS; 

: rem 

22 

470 

IFC$=" { 1 SH M} "THEN1650 

: rem 

218 

860 

GOSUB2 10 : RETURN 

: rem 

203 

480 

IFC$=" { 1 SH D ) " THENDP=NOTDP : GOSUB2 1 0 

870 

X=0:Y=0:GOSUB110: PRINTWHS 

; " {RVS } *LOAD 


:GOTO350 

:rem 

180 


* { OFF } " 

: rem 

209 

490 

IFC$=" { 1 SH E ) "THEN1730 

: rem 

211 

880 

Y=Y+1 :GOSUB110 :F$="" : INPUT "NOMEF ILE"; 

500 

IFC$=" { 1 SH F } "THEN1790 

: rem 

210 


F$ : IFF$=""THEN1210 

: rem 

5 

510 

IFC$=" { 1 SH W) "THEN1630 

: rem 

221 

890 

IFDE=8THEN910 

: rem 

247 

520 

IFC$=" { 1 SH T } "THENDEV=1 : 

EA$=" {RVS }N 

900 

OPEN2, 1, 0, F$ :GOTO920 

: rem 

90 


ASTRO ATT IVO { OFF } " :GOSUB210 :GOTO350 


910 OPEN15, 8, 15:OPEN2, 8,2, F$+",S,R" :GOSUB 



: rem 

109 


2300:1 FEATHENGOSUB2 10:GOTO970 


530 

IFC$="{ 1 SH Q} "THENDEV=8 :EA$=" {RVS }D 



: rem 

173 


ISCO ATTIVO {OFF } " :GOSUB210 :GOTO350 

920 

PRINTCL$;DN$; "LOADING ";F$ 

: rem 

238 


: rem 

13 

930 

INPUT #2 , NR, NW, D,M, YR:M0“M:D0 

=D : Y0= 

'YR: 

540 

GOSUB110 :PRINTB$ :GOTO370 :rem 

229 


CC=1 :CR=1:CW=1 :W=1 :GOSUB2140 

: rem 

38 

550 

D=D-7 : IFD>=1THENRETURN : rem 

139 

940 

I FDE= 8 THENGOSUB2 300 : IFEATHEN970 


560 

M=M-1:IFM>=1THEND»D+MNTH(M) : RETURN 



: rem 

188 


: rem 

160 

950 

FORI=OTONR : INPUT#2 , TB$ { I ) : FORJ=OTONW : 

570 

YR=YR-1 :M=12 :D=D+MNTH (M) : RETURN 



INPUT#2 , TB (I, J) :NEXTJ, I 

: rem 

102 


: rem 

205 

960 

GOSUB1 7 0 : GOSUB2 1 0 

: rem 

4 

580 

D=D+7 : IFD<=MNTH (M) THENRETURN : rem 

46 

970 

CLOSE2 : CLOSE15 : RETURN 

: rem 

120 

590 

D=D-MNTH(M) :M=M+1 : IFMC13THENRETURN 

980 

X=0 : Y=0 :GOSUB110 : PRINTWHS; " {RVS} *+RIG 


: rem 

151 


A* {OFF}" 

: rem 

1 

600 

YR=YR+1 :M=1 : RETURN : rem 

148 

990 

IFNR=18THENY=Y+1 :GOSUB110 : PRINT"-MANC 

610 

IFCR=0THEN37 0 :rem 

241 


A SPAZIO-" :G0T08 30 

: rem 

230 

620 

CR=CR-1 :rem 

93 

1000 

N$="" : Y=Y+1 :GOSUB110 : INPUT" 

NOME”; 

N$ 

630 

GOSUB110 :PRINTA$; :GOTO350 : rem 

29 



: rem 

111 

640 

IFCRONR-lTHENCR=CR+l :GOTO630 


1010 

IFN$=""THEN1080 

: rem 

60 


: rem 

52 

1020 

Y=Y+1 :GOSUB110 : I$="U" : INPUT 

" (E/U) 

i 

650 

GOTO370 :rem 

110 


$ 

: rem 

167 

660 

IFCCOlTHENCC=CC-l :CW=CW-1 :GOTO630 


1030 

A=-l : IFI$="E"THENA=1 

: rem 

122 


: rem 

71 

1040 

CR=CR+1 

: rem 

136 

670 

IFCW=1THEN37 0 : rem 

253 





680 

CW=CW- 1 : W=W- 1 : GOSUB5 5 0 : rem 

68 



* 
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1050 FORI=NRTOCRSTEP-l :TB$ (1+1) =TB$ (I) :FO 
RJ»OTONW:TB(I+1, J)=TB(I, J) :NEXTJ, I 

:rem 151 


1060 F0RI=1T0NW : TB (CR, I ) =0 :.NEXT : TB$ <CR) =L 



EFT$ (N$, 10) 

: rem 

116 

1070 

NR=NR+1 : TB (CR, 0 ) =A 

: rem 

49 

1080 

GOSUB2 1 0 : RETURN 

:rem 

246 

1090 

GOSUB110 :PRINTA$; :GOSUB170: 

GOSUB210: 


RETURN 

: rem 

252 

1100 

X=0 : Y“0 : GOSUB110 : PRINTWH$ ; " 

' ( RVS ) *GOT 


O* (OFF } " 

: rem 

13 

1110 

Y=Y+1 : GOSUB1 1 0 : W$=" " : INPUT " 

’SETT" , 

rW$ 


' 

: rem 

148 

1120 

A=INT(VAL(W$) ) 

: rem 

45 

1130 

IFLEFT$ (W$, 1) ="-"ORLEFT$ (W$, 1) ="+"TH 


ENA=CW+A 

: rem 

242 

1140 

IFA=WTHEN1200 

: rem 

28 

1150 

IFA>50THENA=50 

: rem 

76 

1160 

IFA<=0THEN1210 

: rem 

52 

1170 

IFA>WTHEN1220 

:rem 

34 

1180 

W=W-1:GOSUB550 

: rem 

103 

1190 

IFA<WTHEN1 180 

: rem 

39 

1200 

CW=W:CC=1 

: rem 

31 

1210 

GOSUB2 1 0 : RETURN 

: rem 

241 

1220 

W=W+1:GOSUB580 

: rem 

99 

1230 

IFA>WTHEN1220 

: rem 

31 

1240 

GOTO1200 

: rem 

195 

1250 

X-0 : Y=0 : GOSUB110 : PRINTWH$ ; ’ 

’ {RVS} 

*SAV 


E* (OFF)" 

: rem 

9 

1260 

Y=Y+1 :GOSUB110 :F$= M " : INPUT’ 

’NOMEFILE" 


;F$ : IFF$=""THEN1210 

: rem 

46 

1270 

IFDE-8THEN1290 

:rem 

82 

1280 

OPEN2, 1, 2, F$ :GOTO1300 

: rem 

183 

1290 

OPEN15, 8, 15:OPEN2, 8,2, "@0:’ 

"+F$+” 

,S,W 


" : GOSUB2 3 0 0 : IFEATHEN1 320 

: rem 

157 

1300 

PRINT#2 , NR; " , " ; NW; " , " ; DO ; " , 

r ” ; M0 ; 

f« «t • 
f 9 


Y0 

: rem 

41 

1310 

FORI=OTONR:PRINT#2,TB$ (I) :FORJ=OTONW 


: PRINT#2 , TB ( I , J) :NEXTJ,I 

: rem 

135 

1320 

CLOSE1 5 : CLOSE2 :GOSUB170 :GOSUB210 

:RET 


URN 

: rem 

61 

1330 

X=0 : Y=0 :GOSUB110 :PRINTWH$; 

,f {RVS} 

*-RI 


GA* { OFF } " 

: rem 

41 

1340 

IFCR=0THENY=Y+1 :GOSUB110 :PRINT"RIGA 


ERRATA" :GOT08 30 

: rem 

26 

1350 

Y=Y+1 : GOSUB110 :N$-"" : INPUT 

"OK? " 

;N$ 



: rem 

33 

1360 

IFLEFT$ (N$, 1) <>"S"THEN1210 

: rem 

204 

1370 

NR=NR-1 

: rem 

166 

1380 

FORI=CRTONR : TB$ ( I ) =TB$ ( 1+1 ) : FORJ 

=0TO 


NW: TB (I, J) =TB ( 1+1, J) :NEXTJ 

/I 




: rem 

3 

1390 

CR=CR- 1 : GOTO 1210 

: rem 

201 

1400 

Q$=" " : PRINTHM$ ; WH$ ; "<STMP> 

": INPUT" D 


A ";Q$:IFQ$=""THEN1210 

: rem 

107 

1410 

Ql$-"" : INPUT" A{ 2 SPAZI}” 

;Q1$ : IFQ1$ 


= " " THENQ 1 $ =Q $ 

:rem 

148 

1420 

Q$=»-»+Q$ :M1=0 :F0RI=1T012 : 

IFMNTH$(I) 


»Q$THENM1=I : I»12 

: rem 

83 

1430 

NEXT : M2 =0 : Q 1 $ = " - " +Q 1 $ : FORI 

=1T012 

1 : IFM 


N$ (I) =Q1$THENM2=-1 : 1=12 

:rem 

198 

1440 

NEXT : IFMl=0ORM2=0THENEA$=" 

MESE SBAGL 


IATO" :GOTO1210 

: rem 

154 


1450 OPEN4, 4 :CMD4 :X=79 : A$=”BUDGET PLANNER 



"+STR$ (Y0) 

: rem 

30 

1460 

PRINT" { 20 SPAZI }"A$:PRINT: 

M=M0 : 

Y=Y0 


:D=D0 :Q=1 

: rem 

138 

1470 

M2=M2+1 : IFM2=13THENM2=1 

: rem 

104 

1480 

IFMOM1THENGOSUB580 :Q=Q+1 :GOTO1480 



: rem 

162 

1490 

PRINTTAB(IO) ; :N=1 

: rem 

21 

1500 

A$=STR$ (D) +MNTH$ (M) :GOSUB150 :PRINTA$ 


* 

/ 

: rem 

245 

1510 

A=M:GOSUB580 : IFA=MTHENN=N+1 

:GOTO1500 



: rem 

26 

1520 

PRINT : FORI=OTON: PRINT" { 10 

SH C} 

" ; : N 


EXT: PRINT 

: rem 

65 

1530 

FORI=OTONR: A$=TB$ (I) :GOSUB150 




: rem 

41 

1540 

IFI=NRANDMMTHENPRINTRV$ ; A$ ; 

NV$ ; : 

GOTO 


1560 

: rem 

145 

1550 

PRINT A$ ; 

: rem 

248 

1560 

QQ=Q+N-1 : IFQQ>52THENQQ=52 

: rem 

88 

1570 

FOR J=QTOQQ : X=TB ( I , J) :GOSUB120 




: rem 

147 

1580 

IFI=NRANDX<OTHENPRINTRV$ ; A$ 

; NV$ ; 

: GOT 


01600 

: rem 

186 

1590 

PRINTA$ ; 

: rem 

252 

1600 

NEXT J : PRINT : NEXTI 

: rem 

217 

1610 

PRINT : PRINT : Q=Q+N : I FQ< 5 3 ANDMOM2THEN 


1490 

: rem 

130 

1620 

M=M0 : D=D0 : YR=Y0 : W=1 : CW=1 : CC 

= 1:CR 

=0 :P 


RINT#4 :CLOSE4 :GOTOl210 

: rem 

142 

1630 

I FD $ = " " THENRETURN 

: rem 

81 


1640 A=TB (CR, 0) *VAL (D$) : FORI=CWTONW : TB (CR 
, I) =A:NEXTI :D$="" :GOSUB210 :GOTO350 

: rem 8 6 

1650 I FD $ = " " THENRETURN : rem 83 

1660 A=D : B=M : C=YR : Q=W : X=M :rem 53 

1670 IFWOCWTHENGOSUB5 8 0 :W=W+1 :GOTO1670 

: rem 214 

1680 X=M : rem 177 

1690 GOSUB5 8 0 : W=W+1 : IFX=MTHEN1 6 9 0 

: rem 2 4 

1700 X=M:W=W-1 :GOSUB550 : 1 F W> 5 2 T HEND= A : M=B 
:YR=C:W=Q:D$="":GOTO1720 :rem 33 

1710 TB(CR,W)=TB(CR, 0) *VAL(D$) :GOTO1690 

:rem 230 

1720 GOSUB210 :GOTO350 :rem 232 

1730 IFWOCWTHENW=W+1:GOSUB580 :GOTO1730 

:rem 208 

1740 A=D : B=M : C=YR : W=W+1 : GOSUB5 8 0 : X=M : FL=0 

f 

: rem 3 8 

1750 GOSUB580 :W=W+1 : IFX=MTHEN1750 

: rem 1 8 

1760 GOSUB550 :W=W-1 : IFW>50THENFL=-1 :G0T01 
7 60 : rem 203 

1770 CC=1 : CW=W : IFFLTHENCC=3 : CW=52 

:rem 35 

1780 GOSUB210 :GOTO350 :rem 238 

1790 IFWOCWTHENW=W+l :GOSUB580 :GOTO1790 

:rem 220 

1800 A=D : B=M : C=YR : Q=W :rem 21 

1810 GOSUB580 :W=W+1 : IFTB (NR, W) >=0ANDW<>50 
THEN1810 : rem 232 
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1820 IFTB(NR,W) >=0THEND=A : M=B : YR=C : W=Q : GO 
TO350 : rem 149 

1830 CC=1 : CW=W :rem 40 

1840 GOSUB210 :GOTO350 :rem 235 

1850 DIMTB(18/ 53) ,TB$ (18) ,MN$ (12) ,MN(12) 

: rem 7 0 


1860 DEBT$=CHR$ (28) :FG$=CHR$ (159) :HM$=CHR 
$(19) :CL$=CHR$ (147) :UP$=CHR$ (145) 

: rem 8 4 

1870 DN$=CHR$ (17) :LF$=CHR$ (157) :RT$=CHR$( 
29) :CR$=CHR$ (13) :BK$=CHR$ (20) 

: rem 8 9 

1880 RV$=CHR$ (18): NV$=CHR$ (146): WH$=CHR$ ( 
5) +RV$ : rem 121 

18 90 POKE532 8 0,3: POKE5 32 8 1,0: PRINTFG$ 

: rem 162 

1900 REM : rem 174 

1910 PRINTFG$ :FORI=lTOl2 :READMNT$ (I) , MNT ( 
I) :NEXT : rem 24 

1920 DATA -GEN, 31, -FEB, 28, -MAR, 31, -APR, 30 

:rem 205 

1930 DATA -MAG, 31, -GIU, 30, -LUG, 31, -AGO, 31 

:rem 215 

1940 DATA -SET, 30, -OTT, 31, -NOV, 30, -DIC, 31 

: rem 4 

1950 W=1 : F=10 :DP=-1 :NW=52 :rem 158 

1960 SP$="{ 39 SPAZI}" :rem 24 

1970 X$="" : FORI-1TO40 :X$=X$+RT$ :NEXT 

:rem 138 


1980 Y$="" :F0RI=1T024 : Y$=Y$+DN$ :NEXT 


: rem 

1990 A=FRE (X) : rem 
2000 NR=1:CW=1:CR=0:CC=1 : rem 
2010 TB$ (0) ="PREVBIL" :TB (0,0) =1 : rem 
2020 TB$ (1) “"TOTALE" : rem 
2030 GOSUB2070 : rem 
2040 GOSUB350 :rem 
2050 I FD $=" " THEN2 040 :rem 


2060 TB (CR, CW) =TB (CR, 0 ) * VAL (D$ ) :D$="" 


124 

215 

124 

174 

74 

14 

222 

52 

:X=0 


2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 


2290 

2300 


: Y=1 : GOSUB 1 1 0 : PRINTSP$ : GOT02 040 

:rem 27 

A$=" BUDGET PLANNER" :X=3 9 :G0SUB1 60 :PR 
INT " { CLR ) " ; FG$ ; A$ : rem 48 

PRINT : PRINTEA$ : F$=" " : EA$=" " : rem 82 
INPUT "NOME DEL FILE ";F$ : rem 104 

IFF$=""THEN2170 ; rem 54 

GOSUB890 : rem 229 

IFEATHEN2070 : rem 210 

RETURN : rem 166 

X=Y0 :MNTH (2) -28 : IFM0>2THENX=X+1 

: rem 174 

IFINT (X/ 4) =X/ 4THENMN (2) =29 :rem 59 

RETURN : rem 169 

A$="BUDGET PLANNER" :X=3 9 :GOSUB160 :PR 
INT " ( CLR ) " ; FG$ ; A$ : rem 49 

PRINTD$ : INPUT"GIORNO";DD$ :D— VAL (DD$) 

:rem 30 

INPUT"MESE { 2 SPAZI }" ;MM$ :MM$="-"+MM 

$ : rem 8 2 

INPUT "ANNO { 2 SPAZI } ";YR$ :YR=VAL (YR$ 
) : Y0=YR : rem 158 

M=0 :F0RI=1T012 : IFMN$ (I) =MM$THENM=I 

:rem 124 

NEXT : IFM-0THEN2280 :rem 131 

IFYR<1910ORYR>1999THEN2290 : rem 106 

GOSUB2 140 : rem 15 

IFD<10RD>MNTH (M) THEN2270 :rem 251 

D$=" " :GOSUB210 :M0=M:D0=D :Y0=YR: RETUR 
N :rem 53 

D$=" (RVS) GIORNO ERRATO - RIPROVARE 
{ 2 SPAZI} (OFF)":GOTO2170 :rem 23 

D$=" {RVS }MESE ERRATO - PROVA L'ABBRE 
VI AZIONE { 3 SPAZI} {OFF}" :GOTO2170 

: rem 118 

D$=" {RVS }ANNO ERRATO - (SOLO 1910-19 
9 9 ) { OFF } " : GOT02 170 :rem 31 

INPUT#15,EA,EA$, A r A:EA= (EA<>0) : RE TUR 

N : rem 216 
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di M. Tuttle 

trad. e adatt. di L. Priotto 



Non lasciatevi Ingannare dall'ap- 
parente semplicità di questo gio- 
co di strategia per due giocato- 
ri: è Invece un ottimo test per la 
vostra capacità di concentrazio- 
ne e di prevedere le mosse del- 
l'avversario. 

Dando il RUN al programma vedrete ap- 
parire due insiemi di rettangoli colorati, 
uno sopra l'altro: la serie più bassa e più 
lunga costituisce il campo di gioco. Nel 
suo punto centrale è situata una palla, 
mentre ciascun giocatore occupa un 
estremo del campo di gioco. I due gioca- 
tori si alternano nelle mosse nel tentati- 
vo di spostare la palla verso la propria 
posizione, tino a che essa raggiunga l'e- 
stremo del campo appartenente al vinci- 
tore. 

La palla viene mossa cambiando i colori 
dei rettangoli nel campo di gioco: il colo- 
re del rettangolo posto sotto la palla de- 
termina infatti la direzione in cui essa si 
muove e la lunghezza del suo percorso. 
Per ogni turno la palla si può muovere di 
uno o due rettangoli verso destra, oppu- 
re verso sinistra. 

Nella parte alta dello schermo sono si- 
tuati quattro rettangoli che vi mostrano 
la corrispondenza tra colori e direzioni: 
per esempio, il rettangolo più a sinistra 
mostra quale colore fa muovere la palla 
di una posizione verso sinistra, il rettan- 
golo più centrale sempre a sinistra mo- 
stra invece quale colore fa muovere la 
palla di due posizioni verso sinistra, e 
così via... 

Potete quindi fare in modo che la palla si 
muova nella vostra direzione modifican- . 


do opportunamente il colore del rettan- 
golo su cui essa si trova. 

A ogni turno ciascun giocatore può modi- 
ficare il colore di uno, più d’uno, o di tutti 
i rettangoli; è comunque obbligatorio mo- 
dificare il colore di almeno un rettan- 
golo. 

Sotto ogni rettangolo è situato un nume- 
ro che indica la distanza rispetto alla po- 
sizione estrema del giocatore di turno: 


premendo un tasto numerico da 0 a 9 se- 
lezionate il numero di rettangoli che cam- 
bieranno colore (a partire dalla posizio- 
ne più prossima alla vostra estremità), 
mentre premendo il tasto T provochere- 
te il cambio di colore di tutti i rettangoli 
visualizzati. 

I colori si modificano secondo la sequen- 
za mostrata, da sinistra verso destra, 
nei quattro rettangoli situati nella parte 
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alta dello schermo. 

Benché ogni turno implichi almeno un 
cambio di colore, la palla si sposta sol- 
tanto nel caso in cui vengano modificati 


i colori di tutti quanti i rettangoli situati 
tra la palla stessa e una delle estremità 
del campo di gioco. 

Come vedete, il gioco richiede pratica e 


strategia: una volta comprese bene le 
sue regole sarà molto divertente e dallo 
svolgimento rapido. 


Tug-A-War 

100 POKE53280, 0 :PRINT" {CLR} :BC=53281:PO 
KEBC, 5 : PC ( 1 ) =5 : PC (2 ) =7 : PS=6 : CR=1 : PL=1 
: X=2 0 : rem 204 

110 B=55715:A$=" {CLR} {CLR} {CLR} {GIU' } 

{ 3 SIN} { 3 SIN} {GIU'H 3 SIN} 

{ 3 SIN} { 3 SIN} { 1 SH @}" :P$ (1)="VER 
DE { RVS } {BLK} {OFF} {SIN}":P$ (2)="GIALL 
0":B$="{ 2 SU}" : rem 150 

120 TM$=" {HOME} { 9 GIU' } " :Q$=" {RVS } {BLK} 

{ 34 SPAZI}" :DIMCL (11) : rem 173 

130 FORI=0TO23 : PRINT" {RVS } {BLK} 

{ 39 SPAZI}" : rem 230 

140 POKE1063+ (40*1) , 160 :POKE55335+ (40*1) , 
0 : NEXT : rem 58 

150 PRINT" {RVS }{ 39 SPAZI } {HOME }": POKE202 
3, 160 :POKE56295, 0 : rem 79 

160 PRINT" {HOME} "SPC (15) " {RVS } TUG-A-WAR" : 
PRINTSPC (13) " {GIU' } {RVS} {WHT}"A$B$" 

{ RED } "A$B$" { BLK } { CYN } " A$B$ " { PUR } "A$B 

$ : rem 14 4 

170 PRINTSPC (14) " {BLK} 1"SPC (2) "2"SPC (3) "1 
"SPC (2) "2 {GIU' }" :PRINTSPC(15) " {RVS}< 

{ 1 SH C } "SPC (5) " { 1 SH C }>" : rem 222 
180 GOSUB620 :PRINTTM$" {GIU’ } {RVS} {GRN} "A 
$B$; :F0RZ=1T011 :Y=INT (4*RND (1) )+l:CL( 
Z ) =Y : POKE 6 4 6 , Y : rem 122 

190 PRINT" {RVS }"A$B$; :NEXTZ : PRINT" {YEL} 

{ RVS } " A$ : rem 118 

210 POKE646, PEEK (B) AND15 : PRINTTM$" 

{ 2 GIU' }"SPC(X) "{RVS} {RVS}" :POKEBC,P 
C (PL) : rem 193 

220 PRINTTM$" { 14 GIU' } "SPC (18) " {RVS } 

{ BLK } { 3 SPAZI}" : rem 158 

230 AN=0 : PRINTTM$SPC (7 ) " { 10 GIU'} {BLK} 

{ RVS } QUANTI NE CAMBI IN {OFF}"P$(PL) 

':rem 102 

240 PRINTSPC (17) "{GIU' } {RVS} (1-T) 

{ 2 GIU ' } { 3 SIN} { 3 SIN} {SIN}"; 

: rem 159 

250 POKE204, 0 :POKE198, 0 :WAIT198, 1 :GETMT$ 

: rem 108 


260 IFASC (MT$) <480RASC (MT$) 084ANDASC (MT$ 



) >57THEN250 

: rem 

96 

270 

POKE2 04,1:1 FMT $ = " T " THENAN= 1 1 

:MT$= 

VI 


{SIN}T" :GOTO300 

: rem 

242 

280 

IFMT$="0"THENAN=10 :MT$="10" : 

GOTO300 



: rem 

226 

290 

AN=VAL(MT$) 

: rem 

96 

300 

PRINT" { 2 SIN} { 5 SPAZI }{ 3 

SIN}" 

MT$ 



: rem 

58 

310 

IFAN<10RAN>11THEN220 

: rem 

178 

320 

IFP L=2 THENAN= 1 2 -AN : GOTO 440 

: rem 

84 

330 

IFAN<PSTHENCK=1 

: rem 

190 

340 

F0RQ=1T0AN : IFCL (Q) =4THENCL (Q) =1 : G0T03 


60 

: rem 

180 

350 

CL(Q)-CL(Q)+1 

: rem 

147 


360 


370 


380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 


540 

550 


560 

570 

580 


590 

600 

610 

620 


630 


640 


NEXTQ : PRINTTM$ : PRINT "{BLK} {RVS} {GRN} 
"A$B$ ; :F0RZ=1T011 :POKE646, CL (Z) : PRINT 
" {RVS } "A$B$; : rem 6 
NEXTZ : PRINT " { YEL } { RVS } " A$ : POKE 6 4 6 , P EE 
K (B)AND15: PRINT" {HOME} { 11 GIU'}"SPC( 
X) " { RVS } " : rem 55 
IFCK=1THENCK=0 :GOTO40 0 : rem 87 
ONPEEK(B) AND15GOSUB4 90, 500, 510,520 

:rem 141 


IFPS<1THENPL=1:WC=5:B=55698 :X=2 :GOT05 
3 0 : rem 136 
IFPS>11THENPL=2 :WC=7 :B=55734 :X=38 :GOT 
0530 : rem 239 


IFPL=1THENPL=2 :GOSUB640 :GOSUB630 :GOTO 
210 :rem 22 

PL=1 :GOSUB640 :PRINT" { 10 SU}":GOSUB62 
0 : G0T02 1 0 : rem 

F0RQ=ANT011 : rem 

IFAN<10RAN>11THEN220 : rem 

IFAN>PSTHENCK=1 : rem 


IFCL (Q) =4THENCL (Q) =1 :GOTO360 : rem 
CL (Q) =CL (Q) +1 : GOTO360 : rem 

B=B+6:X=X+6:PS=PS+2 rRETURN : rem 
B=B-3 :X=X-3 :PS=PS-1 : RETURN : rem 
B=B-6 :X=X-6 :PS=PS-2 : RETURN : rem 
B=B+3 : X=X+3 : PS=PS + 1 : RETURN : rem 


2 

161 

183 

196 

166 

163 

123 

114 

122 

110 


POKE 646, PEEK ( B ) AND 1 5 : PRINT" { HOME } 

{ 11 GIU' }"SPC (X) " {RVS} { 1 SH : } " : PRI 
NTTM$" { 10 GIU'}"; : rem 200 

F0RE=1T05 : PRINTQ$ : NEXT : GOSUB640 : GOSUB 
640 :rem 104 

PRINT" {HOME} { 11 GIU' }"SPC(11)P$ (PL) " 
VINCE! ! ! ! " : Z=WC : FORI=1T011 : POKEBC, Z 



: rem 

44 

IFZ=0THENZ=WC:GOSUB610 :NEXT 

: rem 

27 

Z=0 :GOSUB610 :NEXT 

: rem 

45 

POKEBC, 15 :PRINTTM$SPC (11) "{ 

10 GIU 

1 } 


{RVS} GIOCHI { 2 SPAZI} ANCORA 
{ 3 SPAZI} { 2 GIU'H 11 SIN} {RVS}S/N" 


' : rem 5 0 


POKE198, 0 :WAIT198, 1 :GETMT$ : IFMT$<>"N" 
THENRUN : rem 214 

POKE198, 0 : SYS 198 : rem 158 

FORP=lTO2 00 :NEXTP : RETURN : rem 84 

PRINTTM$" { 5 GIU' } {RVS} {BLK} 

{ 2 SPAZI } < { 1 SH C} 1{ 2 SPAZI } 2 

{ 2 SPAZI } 3 { 2 SPAZI} 4{ 2 SPAZI) 5 

{ 2 SPAZI} 6{ 2 SPAZI }7{ 2 SPAZI} 8 

{ 2 SPAZI } 9 { 2 SPAZI } 0 { 2 SPAZI}T":RE 

TURN : rem 159 

PRINTTM$" { 5 GIU' } {RVS} {BLK} 

{ 5 SPAZI }T{ 2 SPAZI} 0{ 2 SPAZI} 9 

{ 2 SPAZI} 8 { 2 SPAZI } 7 { 2 SPAZI} 6 

{ 2 SPAZI }5{ 2 SPAZI} 4 { 2 SPAZI} 3 

{ 2 SPAZI }2{ 2 SPAZI }1 { 1 SH C}>":RE 

TURN : rem 162 

PRINTTM$" { 5 GIU' } {RVS} {BLK} 

{ 29 SPAZI}" : RETURN : rem 65 


di SD. Wagle 

trad. e adatt. di S. Colombo 



Con il "pretesto" di un diverten- 
te gioco d'azione, questo pro- 
gramma vi regala un'ottima routi- 
ne In linguaggio macchina per 
gestire fino a 16 SPRITE con- 
temporaneamente sul video. 

Giocare a Star Dragon è semplice: muo- 
vendo orizzontalmente un cannone nel- 
la parte bassa dello schermo e sparan- 
do nel momento opportuno, bisogna cer- 
care di colpire la testa del dragone che 
è simboleggiato dalla sequenza di SPRI- 
TE che si spostano lungo io schermo. 

Il tasto + muove il cannone verso sini- 
stra, il tasto - lo sposta verso destra, 
mentre il tasto CTRL lo fa sparare. Pre- 
mendo SHIFT LOOK si provoca una pau- 
sa, nello svolgimento del gioco, che 
avrà termine premendo nuovamente 
questo tasto. 

Si noti che, sparando un colpo che non 
colpisca la testa del dragone, si entrerà 
in una fase di gioco alquanto rischiosa 
dal momento che il proiettile potrà, rim- 
balzando, colpire anche il vostro canno- 
ne provocandone la distruzione. 

Il cannone potrà inoltre essere distrutto 
anche dal contatto fisico con il dragone. 
Disponete di tre cannoni e dieci livelli 
successivi di difficoltà, con tre dragoni 
da uccidere per ogni livello. 

Una nota importante per II cari- 
camento del programma 

Il Programma 1 è un caricatore BASIC 
che inserisce in memoria la routine di ge- 
stione degli SPRITE; salvatelo su disco 
con il nome 1 6 (se non avete il drive e 
dovete utilizzare il registratore, vedete 


le istruzioni più avanti). Il Programma 2 
è invece il gioco vero e proprio, comple- 
tamente in linguaggio macchina. 

Se si dispone della cassetta allegata al- 
la rivista, il programma si può duplicare 
su disco o su un altro nastro nel modo 
seguente: 

1. Caricare e attivare il programma MLX 


(in altra parte della rivista) 

2. Rispondere alle sue domande con i 
seguenti valori: 

indirizzo iniziale: 49392 
indirizzo finale : 51 1 03 

3. Premere i tasti SHIFT e L e caricare il 
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programma dalla cassetta allegata alla 
rivista 

4. Premere i tasti SHIFT e S e salvare il 
programma su disco o su un altro na- 
stro, chiamandolo "STAR". 

Chi non disponga della cassetta allega- 
ta, può digitare il programma come di 
consueto tramite MLX, utilizzando gli in- 
dirizzi precedenti. 

Dopo aver compiuto queste operazioni, 
avrete su disco i due file STAR e 1 6. 

Per prima cosa caricate e attivate nor- 
malmente il programma 16, rispondendo 
alla sua domanda circa l'indirizzo inizia- 
le con 49152; dopo un breve istante, ap- 
pariranno sullo schermo 16 SPRITE. 
Mentre questi sono sullo schermo, cari- 
cate il Programma 2 con 
LOAD"STAR",8,1 e attivatelo con 
SVS49392; il gioco avrà inizio. 

Se tutto ciò vi appare complicato, utiliz- 
zate il Programma 3 che provvede auto- 
maticamente al caricamento degli altri 
due. Si tenga presente che in ogni caso 
essi devono essere stati precedente- 
mente trasferiti su disco con la procedu- 
ra descritta. Se si utilizza il Programma 
3 occorre eliminare il {CLR} nella linea 
100, e il PRINT"{CLR}" nella linea 290 


del Programma 1 . 

Il procedimento da seguire è un po' di- 
verso se si utilizza il registratore: occor- 
re infatti modificare le seguenti linee dei 
Programma 1 (la versione presente sul- 
la cassetta allegata alla rivista è quella 
standard per il drive): 

3.00 PRINT" {CLR}" : IF SA=0 THEN 
SA=49152 :LOAD"STAR", 1, 1 
290 POKE53178, 255 :POKE53179, 2 
55 :POKE53281, 0 : SYS4 9392 

Caricate quindi il Programma 1 dalla cas- 
setta allegata, modificatelo come so- 
pra, e salvatelo su un'altra cassetta 
con il nome "16". Trasferite quindi trami- 
te MLX il Programma 2 sulla seconda 
cassetta (chiamandolo "STAR"), in mo- 
do che sia registrato subito dopo il Pro- 
gramma 1 . 

Dopo aver compiuto queste operazioni, 
per attivare il gioco sarà sufficiente cari- 
care e attivare il programma "16". 

Il Programma 3 non serve a chi utilizzi 
soltanto il registatore. 

Utilizzare 16 SPRITE nel propri 
programmi 

Sedici SPRITE si possono ottenere con 
la tecnica del "raster interrupt": il Pro- 


gramma 1 che esegue queste funzioni 
può facilmente essere adattato per fun- 
zionare in congiunzione con i propri pro- 
grammi grafici, tenendo conto di quanto 
segue: 

Il Programma 1 sposta i registri degli 
SPRITE dalle locazioni 53248-53294 nel- 
le locazioni dalla 53170 alla 53247, che 
andranno quindi utilizzate invece delle 
precedenti. 

Il valore della posizione x dello SPRITE 
viene diviso per due dalla routine: uno 
SPRITE che sparisce sotto il margine 
destro dello schermo e avrebbe normal- 
mente una coordinata x pari a 344, ha 
ora un valore di x pari a 1 72. 

Il registro delle collisioni (53180-53183) 
non mantiene il valore fino all'esecuzio- 
ne della PEEK sul registro stesso, ma 
restituisce il valore relativo al momento 
della lettura. 

Si noti che non possono essere rilevate 
collisioni tra SPRITE del gruppo 0-7 e 
SPRITE del gruppo 8-15. 

Dal momento che la tecnica utilizzata 
per avere 16 SPRITE contemporanea- 
mente sullo schermo ha come effetto 
collaterale di aumentare la trasparenza 
degli SPRITE stessi, consigliamo di uti- 
lizzare colori di fondo scuri che attenua- 
no questo effetto. 


Star Dragon 
Programma 1 

100 INPUT" { 2 GIU' } INDIRIZZO INIZIALE";SA 

: rem 109 

110 IFSA>53020THENPRINT"DEVE ESSERE MINOR 
E DI 53021" :RUN :rem 89 

120 PRINT"ATTENDERE . . . " :rem 138 

130 REM » DATA NELL'INDIRIZZO INIZIALE < 
< : rem 239 

140 FORT=0TO149 :READV$ : rem 78 

150 L$=LEFT$ (V$, 1) : rem 186 

160 IFASC (L$) >64THEN HN=ASC (L$) -55 

: rem 151 

170 IFASC (L$) <65THEN HN=ASC (L$) -48 

:rem 153 

180 R$=RIGHT$ (V$, 1) : rem 22 

190 IFASC (R$) >64THEN LN=ASC (R$) -55 

: rem 170 

200 IFASC (R$) <65THEN LN=ASC (R$) -48 

:rem 163 

210 B=HN*1 6+LN : POKE SA+T,B:NEXT : rem 97 
220 REM » WEDGE NEL RASTER « : rem 136 

230 POKE53265, 27 :POKE56333, 127 :POKE788, ( ( 
SA/256) -INT (SA/256) ) *256 :rem 95 

2 40 POKE7 8 9, SA/256 :POKESA+10 9, PEEK (648) +3 
:POKE53274, 129 : rem 147 

250 REM »»> VISUALIZZA 16 SPRITE ««« 

: rem 105 

260 FORT=53170TO53247 :POKET, 0 :NEXT:FORT=0 
T063 :POKE704+T, 255 :NEXT :rem 252 

270 FORT=0TO15 : POKE53232+T, 11 : rem 191 


280 POKE53216+T, 1+RND (0) *8 :POKE53184+T, 14 
0-T*8 :POKE53200+T, 60+T*10:NEXT 

:rem 32 

290 POKE53178 , 255 :POKE53179, 255 :POKE53281 
, 0:END :rem 173 

300 REM »»> DATI DEI 16 SPRITE ««< 

: rem 1 1 

310 DATA A5,FD,29,01,AA,49,01,A8,BD,B2,CF 
, 8D, 1C, DO : rem 102 

320 DATA BD,B4,CF, 8D, 1D, DO, BD, B6, CF, 8D, 17 
,D0,BD,B8 • : rem 180 

330 DATA CF, 8D, 1B, DO, BD, BA, CF, 8D, 15, DO, AD 
,1E,D0,99 :rem 161 

340 DATA BC,CF,AD,1F,D0,99,BE,CF,A9,01,8D 
, 19,D0,A5 -.rem 152 

350 DATA FD, 29, 01,0 A, 0A, 0A, AA, A0, 00, 84,FE 
,A9,01,85 -.rem 41 

360 DATA FC, BD, CO, CF, ÓA, 99, 00, DO, 90,0 6, A5 
,FC,05,FE :rem 111 

370 DATA 85,FE,BD,D0,CF,99,01,D0,8A, 84,FF 
, 29, 07, A8 : rem 110 

380 DATA BD, E0 , CF, 99, 27,D0, BD, F0 , CF, 99, F8 
, 07 , A4 , FF : rem 161 

390 DATA 18,26,FC,E8,C8,C8,C0, 10, DO, CD, A5 
, FE, 8D, 10 : rem 108 

400 DATA DO, AD, 1F,D0,E6,FD,A9, 00, 8D, 12,D0 
, AD, OD, DC : rem 128 

410 DATA 29,01,F0,03,4C, 31, E A, 4C, BC, FE 

:rem 200 


SUPERCOMMODORE 64 .'128 1086 33 


Programma 2 

49392 : 076 , 106 , 199 , 164 , 021 , 140 , 178 
4 9398 : 001 , 2 12 , 24 0 , 002 , 198 , 021, 152 
49404 : 076 , 000 , 194 , 096 , 000 , 024, 130 
49410 : 000 , 000 , 024 , 000 , 000 , 024, 050 
4 9416 : 000 , 000 , 060 , 000 , 030 , 060, 158 
4 9422 : 120 , 015 , 060 , 240 , 007 , 255, 199 
49428 : 224 , 003 , 231 , 192 , 003 , 195, 100 
4 9434 : 224, 0 63 , 189 , 252 , 255 , 189, 174 

49440 : 255 , 063 , 195 , 252 , 003 , 231,007 
49446 : 224 , 003 , 255 , 224 , 007 , 060, 043 
4 9452 : 240 , 030 , 060 , 056 , 030 , 060,008 
4 94 58 : 056 , 000 , 024 , 000 , 000 , 024, 154 
4 94 64 : 000 , 000 , 024 , 000 , 000 , 000, 080 
4 9470 : 000 , 000 , 000 , 000 , 000 , 000,062 
4 9476 : 000 , 000 , 000 , 000 , 000 , 000, 068 
4 9482 : 048 , 000 , 000 , 120 , 000 , 000,242 
4 9488 : 252 , 000 , 001 , 254 , 000 , 003, 078 
4 94 94 : 255 , 000 , 000 , 120 , 000 , 000,205 
49500 : 120 , 000 , 003 , 123 , 000 , 007,089 
4 9506 : 123 , 128 , 015 , 123 , 192 , 031, 198 
49512 : 123 , 224 , 063 , 255, 2 40 , 127, 112 
49518 : 255 , 248 , 124 , 252 , 248 , 121 , 078 
4 9524 : 254 , 120 , 115 , 255 , 056 , 099,24 7 
4 9530 : 255 , 024 , 000 , 000 , 000 , 000, 145 
4 9536 : 147 , 005 , 013 , 013 , 013 , 013 , 07 6 
4 9542 : 032 , 032 , 032 , 032 , 032 , 032, 070 
4 9548 : 032 , 032 , 032 , 032 , 083 , 067, 162 
4 9554 : 07 9 , 082 , 069 , 058 , 048 , 048, 018 
4 9560 : 048, 04 8 , 032 , 07 6, 0 69 , 086, 255 
4 9566 : 069 , 076 , 058 , 066 , 013 , 013 , 197 
4 9572 : 158 , 032 , 032 , 032 , 032 , 032,22 6 
49578 : 032 , 032 , 032 , 032 , 032 , 032, 106 
4 9584 : 032 , 032 , 032 , 032 , 032 , 072, 152 
4 9590 : 073 , 084 , 032 , 043 , 013 , 013, 184 
4 9596 : 032 , 032 , 032 , 032 , 032 , 032, 124 
4 9602 : 032 , 032 , 032 , 032 , 084, 07 9, 22 9 
4 9608 : 032 , 080 , 07 6 , 065 , 089 , 032, 062 
4 9614 : 083 , 084 , 065 , 082,0 68 , 082,158 
4 9620 : 065 , 071 , 07 9 , 078 , 000 , 064,057 
4 962 6 : 128 , 192 , 192 , 048 , 012 , 003,025 
4 9632 : 032 , 033 , 034 , 035 , 037 , 038, 17 7 
4 9638 : 039 , 040 , 042, 04 3 , 044 , 045, 227 
4 964 4 : 047 , 048, 04 9 , 050 , 052 , 053 , 023 
4 9650 : 054 , 055 , 057 , 058 , 059 , 060, 073 
49656 : 062 , 063 , 064 , 065 , 067 , 068, 125 
4 9662 : 069 , 070 , 162 , 000 , 162 , 000,205 
4 9668 : 189 , 000 , 207 , 240, 0 68 , 201, 141 
4 9674 : 001 , 2 40 , 020 , 188 , 208 , 207,106 
4 9680 : 136 , 136 , 152 , 157 , 208 , 207,244 
4 9686 : 201 , 004 , 176 , 005 , 169 , 000, 065 
4 9692 : 157 , 000 , 207 , 240 , 044 , 188, 096 
4 9698 : 064 , 207 , 189 , 192 , 207 , 133,002 
4 9704 : 174 , 189 , 032 , 207 , 032 , 083, 245 
4 9710 : 194 , 157 , 064 , 207 , 165 , 174,239 
4 9716 ': 157 , 192 , 207 , 188 , 080 , 207,059 
4 9722 : 189 , 208 , 207 , 133 , 174 , 18 9, 134 

J 


4 9728 : 048 , 207 , 032 , 083 , 194 , 157,017 
4 9734 : 080 , 207 , 165 , 174 , 157 , 208, 037 
4 9740 : 207 , 232 , 224 , 015 , 208 , 178, 116 
4 974 6 : 096 , 048 , 010 , 010 , 132 , 002, 124 
4 9752 : 101 , 002, 14 4 , 002 , 230 , 174,229 
4 9758 : 0 96 , 010 , 133 , 002 , 152 , 229,204 
4 97 64 : 002, 17 6 , 002 , 198 , 174 , 096,236 
4 9770 : 07 6 , 01 9 , 195 , 162 , 000 , 189,235 
49776 : 000 , 207 , 201 , 001 , 208 , 244, 205 
4 9782 : 160 , 000 , 132 , 174 , 132 , 176 , 124 
4 9788 : 169 , 255 , 133,17 5 , 133 , 177,142 
4 97 94 : 254 , 112 , 207 , 189 , 112 , 207, 187 
4 9800 : 208 , 019 , 169 , 252 , 157 , 112, 02 9 
49806 : 207 , 222 , 016 , 207 , 189 , 016,231 
4 9812 : 207 , 2 08 , 00 6 , 032 , 221 , 194,248 
4 9818 : 076 , 019 , 195 , 189 , 192 , 207,008 
4 9824 : 201 , 018 , 17 6 , 008 , 160 , 000,211 
4 9830 : 132 , 174 , 160 , 127 , 132 , 175, 042 
4 9836 : 201 , 15 6 , 14 4 , 008 , 160 , 128,201 
4 9842 : 132, 17 4 , 160 , 255 , 132 , 175,182 
4 9848 : 189 , 208 , 207 , 201 , 048 , 17 6 , 18 9 
4 9854 : 008 , 160 , 000 , 132, 17 6 , 160,058 
4 9860 : 127 , 132 , 177 , 201 , 218 , 144, 171 
49866 : 008 , 160 , 128 , 132 , 176 , 160,198 
4 9872 : 255 , 132, 17 7 , 192 , 000 , 240, 180 
4 987 8 : 060 , 032 , 221 , 194 , 056 , 17 6 , 185 
4 9884 : 054 , 188 , 096 , 207 , 185 , 000,182 
49890 : 206 , 005 , 174 , 037 , 175 , 157,212 
4 9896 : 032 , 2 07 , 185 , 001 , 206 , 005,100 
4 9902 : 17 6 , 037 , 177 , 157,04 8 , 207,016 
4 9908 : 185 , 001 , 206 , 005 , 17 6 , 037,086 
4 9914 : 177 , 157,04 8 , 207,18 9 , 016 , 020 
4 9920 : 207 , 24 0 , 015 , 185 , 002 , 206 , 087 
4 992 6 : 157 , 01 6 , 207 , 18 9 , 096 , 207, 110 
4 9932 : 024 , 105 , 004 , 157 , 096 , 207,093 
49938 : 096 , 232 , 224 , 015 , 176 , 003,252 
4 994 4 : 07 6 , 111 , 194 , 096 , 07 6 , 24 6 , 055 
4 9950 : 195 , 162 , 000 , 18 9 , 000 , 204, 012 
49956 : 201 , 000 , 240 , 244 , 201 , 002, 156 
4 9962 : 144 , 005 , 169 , 000 , 157 , 000,005 
4 9968 : 204, 18 9 , 128 , 203 , 133 , 174,055 
4 997 4 : 189 , 192 , 203 , 133 , 175 , 169,091 
4 9980 : 000 , 168 , 14 5 , 174 , 189 , 192, 160 
4 9986 : 205 , 133 , 173 , 165 , 173 , 240 , 131 
4 9992 : 084 , 160 , 000 , 189 , 064 , 205,006 
49998 : 201 , 004 , 176 , 001 , 200 , 201,093 
50004 : 158 -, 144 , 001 , 200 , 189 , 128,136 
50010 : 205 , 201 , 200 , 144 , 001 , 200,017 
50016 : 192 , 000, 24 0 , 008 , 169 , 000, 193 
50022 : 157 , 000 , 204, 07 6 , 24 6 , 195,212 
50028 : 189, 0 64 , 205 , 133 , 17 4 , 188,037 
50034 : 192 , 2 04 , 189 , 064 , 204 , 032,231 
50040 : 083 , 194 , 157 , 192 , 204 , 165,091 
5004 6 : 174 , 157 , 064 , 205 , 189 , 128,019 
50052 : 205 , 133 , 174 , 188 , 000 , 205,013 
50058 : 189 , 128 , 204 , 032 , 083 , 194,200 
50064 : 157 , 000 , 205 , 165 , 174 , 157,234 
50070 : 128 , 205 , 198 , 173,07 6 , 069,231 
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5007 6 : 195, 189, 128,205,074,074,253 
50082 : 07 4, 072, 04 1,003, 134,002,232 
50088 : 168, 185,216, 193, 133,174,213 
50094 : 104, 168, 185,224, 193, 133, 157 
50100 : 175, 18 9, 064 , 205 , 024 , 101 , 170 
50106 : 174, 133, 174,14 4,002,230,019 
50112' : 175, 189, 064,205,024,101,182 
50118 : 174 , 133, 174,14 4,002,230,031 
50124 : 175,041,24 8, 133, 17 4, 189, 140 
50130 : 128, 205, 041,007,168, 189, 180 
50136 : 064, 2 05,041,003, 170, 18 9, 120 
50142 : 220, 193,017, 174, 14 5, 17 4, 121 
5014 8 : 166, 002, 024, 152, 101, 17 4, 07 9 
50154 : 14 4, 002,230, 17 5, 157, 128, 04 6 
50160 : 203, 165, 175, 157,192,203,055 
50166 :232, 224, 064, 240, 003, 076, 061 
50172 : 033, 195, 096, 172,207,207,138 
5017 8 : 165, 2 03, 201, 04 0,2 08, 00 6, 057 
50184 : 192, 014, 14 4,002,13 6, 136, 120 
50190 : 201, 043, 208, 00 6, 192,160,056 
50196 : 17 6, 002, 200, 200, 14 0,207,17 7 
50202 : 207, 173, 141,002,197,022,000 
50208 : 133, 022, 24 0, 007,201, 004, 127 
50214 : 208, 003, 032,04 4,196, 096, 105 
50220 : 162, 000, 189,000,204,208,039 
5022 6 : 033, 169, 006, 157, 192, 205, 04 4 
50232 : 169, 000, 157, 064, 204, 169, 051 
50238 : 255, 157, 128,2 04, 173,207, 162 
5024 4 : 207, 056,233, 008, 157, 064, 025 
50250 : 205, 169, 17 6, 157, 128,205, 090 
50256 :2 54, 000, 204, 096, 232, 224, 066 
502 62 : 0 64, 208, 213, 096, 162, 000, 061 
502 68 : 189, 000, 204, 240, 0 91, 189,237 
50274 : 192, 2 05, 20 1,003, 2 40, 084, 255 
50280 : 189, 0 64,205, 133, 176, 189, 036 
50286 : 128,205, 133,177, 134,002,121 
502 92 : 162, 000, 134, 17 5, 189,000, 008 
50298 : 207, 201, 001, 208, 067, 189,227 
50304 : 192,207, 233, 012, 197, 17 6, 121 
50310 : 17 6, 045, 105,012, 197, 17 6,077 
50316 : 144, 039, 189,208,207,233,136 
50322 : 048, 197, 177, 17 6, 030, 105,111 
50328 : 020, 197, 177, 14 4,024,228, 174 
50334 : 175, 2 08, 038, 169,002,157, 139 
50340 : 000, 2 07, 169, 042, 133, 02 1,224 
5034 6 : 134, 170, 166, 002, 169, 240, 027 
50352 : 157,128,205,166, 170,232,210 
50358 : 224, 015,208, 190, 166, 002,219 
50364 : 232, 224, 064, 208, 155,096, 143 
50370 : 230, 175, 208, 239, 096, 032,150 
5037 6 : 151, 224, 166, 002, 169, 003, 147 
50382 : 157, 192,205, 165, 142, 157,200 
50388 : 064, 204, 169, 127, 157, 128,037 
50394 :204, 076, 186, 196, 173,014,043 
504 00 : 207, 201, 002, 240, 003, 07 6, 185 
50406 : 099, 197, 173,206,207,233, 065 
50412 : 008, 133,17 6, 173,222,207,131 
50418 : 233, 040, 133, 177, 162, 000, 219 
50424 : 134,002, 032, 151, 224, 166, 189 


504 30 : 002, 165, 142, 157,0 64,204,220 
5043 6 : 165, 14 3,157,128,204, 169,202 
50442 : 001, 157,000,204, 165, 141,166 
504 48 : 041, 003, 157, 192,205, 165,011 
50454 : 17 6, 157,064,205, 165, 177,198 
504 60 : 157, 128, 205, 232, 224, 064, 014 
504 66 : 208, 212, 162,000, 142,186,176 
50472 : 207, 162, 128, 142, 187, 207, 04 9 
50478 : 162, 000, 134 , 150, 032 , 031 , 043 
50484 : 195, 166, 150,232,142,001,170 
50490 :2 12, 208, 243, 238, 2 53, 159, 091 
50496 : 174 , 2 53 , 159 , 224 , 003 , 144 , 253 
50502 : 022, 238, 255, 15 9, 169,000, 14 5 
50508 : 141, 2 53, 159, 173, 255, 15 9, 192 
50514 : 201, Oli, 24 0, 010, 169, 034, 235 
50520 : 133, 17 7, 032, 189, 197, 07 6, 124 
5052 6 : 058, 198, 07 6, 035, 199, 173, 065 
50532 : 191, 207, 04 8, 041, 173, 191, 183 
50538 : 207, 04 8, 03 6, 162,000, 189,236 
5054 4 : 192, 207, 233, 005, 205, 207,137 
50550 : 207, 176, 016, 105, Oli, 205, 070 
50556 : 207, 207, 14 4, 009, 189,208,064 
50562 : 207, 2 01, 2 14, 14 4,002, 17 6,050 
50568 : 008, 232, 224, 015, 208, 225, 024 
5057 4 : 07 6, 034, 198, 169, 008, 141,000 
50580 : 001, 212, 162, 000, 160, 000, 171 
50586 : 200, 2 08, 253, 238, 032, 208, 013 
50592 : 232, 208, 24 5, 142,001,212, 17 6 
50598 : 238, 250, 159, 173,250, 159, 115 
50604 : 201, 003, 17 6, 003,07 6, 058,177 
50610 : 198, 142, 186, 207, 142, 187, 216 
50616 : 207, 169,088,133, 177, 169, 103 
50622 : 021, 141, 024,208, 169,027, 012 
50628 : 14 1,0 17, 208, 162,000, 173, 12 9 
50634 : 253, 159, 010,024, 105, 04 8,033 
50640 :141, 152, 193, 173, 255, 159, 001 
50 64 6 : 056, 105, 0 63, 141, 161, 193, 165 
50652 : 233, 016, 201, 058, 144,007,111 
50658 : 238, 150, 193,233,010, 17 6,202 
50664 : 245, 141,151,193, 162,000, 100 
50670 : 189, 128, 193, 032, 210', 255, 221 
5067 6 : 232, 228, 177,208,245, 133, 187 
50682 : 162, 010, 197, 162,208,252,217 
50688 : 165, 177,201,088,240, 001,104 
50694 : 0 96,165, 203, 201, 040,208, 151 
50700 :250, 076, 240, 192, 032, 109, 143 
50706 : 194, 173, 255, 159, 133, 180,088 
50712 : 032, 2 43, 192,198, 180,208,053 
50718 :249, 076, 222, 196, 032, 255, 036 
50724 : 195, 032, 031, 195, 032,090,099 
50730 : 196, 173, 141 , 002, 2 01, 001 , 24 4 

5073 6 : 208, 222, 169, 000, 141,001, 021 
50742 : 212, 07 6, 043, 198, 169, 032,016 

5074 8 : 133, 177,169, 000, 133, 17 6, 080 
50754 : 168, 170, 145, 176, 2 00, 208, 109 
507 60 : 251, 232, 230, 177,224,032, 194 
50766 :208, 244, 170, 157,000,207,040 
50772 : 157, 000, 204,232,224, 186, 063 
50778 : 208, 245, 170,134,002,032,113 
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507 84 : 151 , 224 , 165, 14 2 , 166 , 002,178 
507 90 : 0 4 1 , 191 , 157 , 000 , 206 , 232, 161 

507 96 : 208 , 239 , 162 , 000 , 189 , 002, 140 
50802 : 206 , 041 , 031 , 157 , 002 , 206, 245 
50808 : 232 , 232 , 232 , 232 , 208 , 242, 218 
50814 : 1 65 , 143 , 07 4 , 07 4 , 105 , 032,207 
50820 : 133 , 172 , 165 , 172 , 157 , 192,099 
5082 6 : 207 , 169 , 064 , 157 , 208 , 207, 12 6 
50832 : 134 , 002 , 032 , 151 , 224 , 166,085 
50838 : 002 , 165 , 14 3 , 041 , 007 , 105, 101 
5084 4 : 002 , 157 , 224 , 207 , 254 , 000,232 
50850 : 207 , 169 , 013 , 157,24 0 , 207, 131 
50856 : 169, 24 0 , 157 , 112 , 207 , 232,005 

508 62 : 224 , 015 , 208 , 212 , 169 , 255,233 
508 68 : 141 , 186 , 207 , 141 , 187 , 207,225 
50874 : 169 , 014 , 141 , 255 , 207 , 162, 110 
50880 : 000 , 160 , 001 , 152 , 157 , 016 , 166 
50886 : 207 , 232 , 200 , 224 , 015 , 208,004 
50892 : 24 6 , 169 , 224 , 141 , 223 , 207, 134 
508 98 : 169 , 128 , 141 , 207, 2 55 , 169,255 
50904 : 05 9 , 141 , 017 , 208 , 169,02 9 , 071 
50910 : 141 , 024 , 208 , 169 , 001 , 141,138 
50916 : 239 , 207 , 162 , 000 , 169 , 016,253 
50922 : 157 , 000 , 004 , 157 , 000 , 005, 04 5 
50928 : 157 , 000 , 006 , 157 , 232 , 006,030 
50934 : 232 , 208 , 241 , 169 , 015 , 141,228 
5094 0 : 024 , 212 , 169 , 015 , 141 , 005, 050 
5094 6 : 212 , 169 , 245 , 141 , 006 , 212,219 
50952 : 169 , 12 9 , 141 , 004 , 212 , 162,057 
50958 : 000 , 169 , 048 , 157 , 150 , 193,219 
50964 : 232 , 22 4 , 004 , 208 , 2 4 6 , 173, 083 
50970 : 255 , 159 , 010 , 141 , 032 , 208,063 
50 97 6 : 07 6 , 016 , 198 , 162 , 000 , 169 , 141 
50982 : 147 , 032 , 210 , 255 , 169 , 027, 110 


50988 : 141 , 017 , 208 , 169 , 021 , 141, 22 9 
50994 : 024 , 208 , 189 , 082 , 199 , 157,141 
51000 : 032 , 217 , 157 , 032 , 005 , 232,219 
51006 : 224 , 024 , 208 , 242 , 202 , 134,072 
51012 : 162 , 202 , 165 , 162 , 141 , 033, 165 
51018 : 208 , 228 , 162 , 208 , 247,07 6 , 17 9 
51024 : 185 , 197 , 007 , 015 , 015 , 004,247 
51030 : 032 , 023 , 015 , 018 , 011,04 4, 229 
51036 : 032 , 004 , 018 , 001 , 007 , 015, 169 
51042 : 014 , 019 , 012 , 001 , 025 , 005 , 174 
5104 8 : 018 , 033 , 162 , 000 , 169 , 032,006 
51054 : 157 , 192 , 203,18 9 , 000 , 193,020 
51060 : 157,0 64 , 003 , 232 , 224 , 128,156 
51066 : 208 , 240 , 169 , 000 , 141 , 250, 106 
51072 : 15 9 , 14 1 , 253 , 159 , 169 , 001,242 
51078 : 141 , 255 , 159 , 169 , 080 , 141,055 
51084 : 207 , 207 , 141 , 033 , 208 , 141,053 
510 90 .* 032 , 208,07 6 , 058 , 198 , 000,206 
51096 : 000 , 000 , 000 , 000 , 234 , 234, 108 
51102 : 234 , 234 , 000 , 000 , 000 , 000, 114 

Programma 3 

100 POKE 53280, 2 :POKE 53281, 0 :PRINT" {CLR} 

{ 2 GIU' } "TAB ( 9) ” [<7>] {RVS } ATTENDERE 

[<4>] " :PRINT : rem 191 

110 PRINT"LOAD "CHR$ (34) "0 : 16"CHR$ (34) ", 8 
" :PRINT" { 4 GIUMRUN" . : rem 246 

120 PRINT" { 2 GIU'H 18 DES ) 49152" 

:rem 149 

130 PRINT" { 3 GIUMLOAD "CHR$ (34) "0 : STAR" 
CHR$ (34) ", 8>.l" :PRINT" { 4 GIU'JSYS 493 
92" : rem 112 

140 PRINT" { 21 SU}" : rem 75 

150 POR 1=0 TO 4 : POKE 631+1, 13 :NEXT:POKE 
198,5 : rem 246 



JACKSON 

LA BIBLIOTECA CHE FA TESTO 



il coprocessore, l'ampia 
serie di librerie interne 
che controllano la grafica , 
il suono, le animazioni e la 
capacità di Amiga di 
parlare. 

Il libro affronta inoltre 
l'interfaccia Intuition 
(addetta al controllo delle 
finestre e delle icone), la 
Comand Line Interpreter 
di testo, i programmi in 
amigaBASIC, l'ambiente 
Workbench e la sua 
versatilità operativa, l'uso 
e i comandi dell'editor di 
schermo. 

Insomma, una guida 
preziosa per chi vuol 
conoscere tutto su questo 
versatile computer : 


D. Lawrence, M. England 
AMIGA HANDBOOK 
Pagine 189, L 35.000 
Cod. CC320 

Ancora una volta il 
Gruppo Editoriale Jackson 
si dimostra tempestivo e 
al passo con i tempi. A 
distanza di pochi mesi 
dalla presentazione ai 
pubblicò di Amiga, il 
nuovo computer della 
Commodore, a tutti i 
possibili utilizzatori di 
questa macchina viene 
rivolta una pratica e 
utilissima pubblicazione. 
Nel corso del testo sono 
analizzati il 

microprocessore 68000 e 


GRUPPO EDITORIALE 


DIVISIONE LIBRI 




di K. Mykytyn e M. Tuttle 
trad. e adatt. di E. Stefani 



Ecco un interessante gioco di 
strategia e di ragionamento, per 
passare qualche tempo diverten- 
dosi con il proprio computer. E' 
richiesto ('utilizzo del joystick. 

Siamo tutti familiari con quei giochi in 
cui gli avversari dispongono a turno dei 
pezzi su una scacchiera fino a che uno 
dei due non realizzi la combinazione vin- 
cente: il più famoso è senz'altro il classi- 
co "tris" che si giocava di nascosto sui 
banchi di scuola. 

Switcheroo appartiene a questa catego- 
ria, con nuove e interessanti caratteristi- 
che. Scopo del gioco è allineare cinque 
delle proprie pedine in modo orizzonta- 
le, vellicale oppure diagonale, cercan- 
do allo stesso tempo di impedire all'av- 
versario la realizzazione di una combina- 
zione vincente. 

In qualunque momento del gioco, un gio- 
catore può far "slittare" i pezzi di un’inte- 
ra riga o di un'intera colonna, modifican- 
do radicalmente la situazione strate- 
gica. 

Dopo il RUN vi verrà chiesto se intende- 
te utilizzare uno o due joystick: se ne 
utilizzate uno soltanto, assicuratevi 
che sia collegato alla Porta 2. il giocato- 
re numero 1 controlla i pezzi gialli, men- 
tre il numero 2 controlla i pezzi color 
arancb. 

Lo schermo visualizza una griglia di 25 
quadratini (5x5) con un cerchio posizio- 
nato nel suo centro; in basso rispetto al- 
la griglia sono visualizzate due immagini 
(icone): un quadrato e quattro piccole 
frecce direzionali. 

Spostate il joystick a sinistra, verso l'i- 
cona a forma di quadrato, se desidera- 


te piazzare un pezzo sulla scacchiera, 
oppure spostatelo a destra, verso l'ico- 
na con le frecce, se desiderate far "slit- 
tare" dei pezzi di una riga o di una co- 
lonna. 

Supponendo che abbiate deciso di por- 
re un pezzo sulla scacchiera e quindi 
spostato il joystick verso sinistra, l’ico- 
na quadrata assumerà il colore dei vo- 
stri pezzi: premete il pulsante di fuoco 


per attivare il cerchio, e spostatelo nel 
punto in cui desiderate far comparire il 
pezzo. Alla successiva pressione del 
pulsante di fuoco, il pezzo verrà posto 
nella casella desiderata. Spostando infi- 
ne la leva del joystick in una delle quat- 
tro direzioni, ogni pezzo verrà fatto "slit- 
tare" di uno spazio nella direzione sele- 
zionata. 

Si noti che eventuali pezzi che "escono" 
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dalla scacchiera vengono fatti rientrare 
dalla parte opposta. 

Per esempio, se la riga in cui vi trovate 
è composta da AAGAG (A=arancio, 
G=giallo) ed effettuate una "slittata* ver- 
so destra, otterrete la configurazione 


AAGA, mentre nessuno dei pezzi al di 
fuori della riga muterà la propria posi- 
zione. 

Se si cerca di effettuare una mossa non 
consentita, il cerchio ritorna nella sua 
posizione iniziale e occorre ripetere la 


mossa. 

E' dichiarato vincitore il primo dei due 
giocatori che riesce a porre in fila cin- 
que dei propri pezzi, in una direzione 
qualsiasi. 


Switcheroo 


10 F0RA=54272T0542 95 : POKEA, 0 :NEXT : POKE542 
96, 47 :POKE54273, 16 :POKE54280, 19 

: rem 2 

20 POKE54277, 24 :POKE54284, 24 :POKE54295, 20 
: POKE542 91, 25 : POKE54287, 5 :GOSUB640 

: rem 87 

30 GOTO2 80 : rem 54 

40 JY=15- (PEEK (56320+PL*F2) AND15) : FR=PEEK 
(56320+PL*F2) AND16 : IFFR=0THENJY=0 

: rem 117 

50 RETURN : rem 69 

60 WAIT56320+PL*F2, 16, 0 :RETURN : rem 13 
, 70 POKE53288 , CI : POKE5328 9 , C2 : RETURN 

:rem 111 

80 TX=X* 6-1 : TY=Y* 4-3 : GOSUB270 : POKE646, C : P 
RINT"{RVS}"A$: RETURN : rem 9 

90 POKE5427 6, 16: POKE54283 , 1 6 : POKE5427 6, 17 
:POKE54283, 17 : rem 61 

100 FORA=lTO300 :NEXT :POKE5427 6, 0 :POKE5428 
3,0: RETURN : rem 136 

110 POKE5428 0 ,19: FORB=50T0150STEP50 : POKE5 
4273 , B : GOSUB90 : NEXT : RETURN : rem 203 
120 POKE54290, 128 :POKE54290, 129 :FORA=100T 
0200 : POKE5 429 4, A: NEXT: RETURN: rem 152 
130 QT=0 : X=0 : Q=1 : F0RA=1T05 : F0RB=1T05 : X=X+ 
AR (A, B) : NEXT : IFX=35ORX=40THENGOSUB190 

: rem 24 6 

140 X= 0 : NEXT : Q=2 : F0RA=1T05 : FORB= 1 T05 : X=X+ 
AR ( B , A) : NEXT : IFX=3 50RX= 4 0 THENGOSUBl 9 0 

: rem 37 

150 X=0 :NEXT:Q=3:F0RA=1T05:B=A:X=X+AR(A,B 
) :NEXT : IFX=35ORX=40THENGOSUBl 90 

:rem 120 

160 X=0 : Q=4 : F0RA=lT05 :B=6-A : X=X+AR ( A, B) :N 
EXT : IFX=35ORX=40THENGOSUB190 : rem 100 

170 IFQTTHEN230 : rem 144 

180 RETURN : rem 121 

190 QT=1 :A$=" {OFF} {GIU' } f 2 DES) 

{ 2 SPAZI } {GIU' } { 2 SIN) { 2 SPAZI}":I 
FQ=lTHENF0RZB=lT05 : X=A : Y=ZB : GOSUB80 : N 
EXT: RETURN : rem 166 


200 IFQ=2THENF0RZB=1T05 : Y=A:X=ZB :GOSUB80 : 

NEXT : RETURN : rem 1 0 

210 IFQ=3THENF0RZA=1T05 : X=ZA : Y=ZA : GOSUB80 
:.NEXT : RETURN : rem 100 

220 F0RZA=1T05 :X=ZA:Y=6-ZA:GOSUB80 :NEXT : R 
ETURN : rem 7 3 

230 POKE53269, 0 :GOSUB110 :TY=23 :TX=4 :GOSUB 
270 : rem 168 

240 PRINT" { RVS } { BLU } PREMI FUOCO PER GIOC 
ARE ANCORA" : rem 38 

250 IFPEEK (56320 ) OlllANDPEEK (56321) <>239 
THEN250 : rem 209 

2 60 CLR:GOTO2 80 : rem 134 


270 

280 

290 

300 

310 


320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 


POKE783, 0 : POKE7 8 1 , TY : POKE782 , TX : SYS 65 
520: RETURN :rem 223 

PRINT" {HOME}"; :DIM CL(25) ,AR<5,5) :PC( 
0) =7 :PC (1) =8 : PL=1 : F2=PEEK (828) 

: rem 139 

MX ( 1) =0 :MX (2) =0 :MX (4) =-48 :MX (8) =48 :MY 
(1) =-32 :MY (2) =32 :MY (4) =0 :MY (8) =0 

: rem 3 9 

F0RA=1T05 : F0RB=1T05 : AR (A, B) =14 :NEXTB, 
A : 0 J=0 : rem 12 9 

A$=" { 1 SH 0} [< 4 Y>] { 1 SH P } {GIU ' } 

{ 6 SIN} [<H>] { 4 SPAZI} [<N>] {GIU* } 

{ 6 SIN} [<H>] { 4 SPAZI} [<N>] {GIU' } 

{ 6 SIN} { 1 SH L}[< 4 P>] { 1 SH @}":B 
$="{ 3 SU}" : rem 4 

FORI=0TO23: PRINT" {RVS} {BLU} 

{ 39 SPAZI ) " :M=1063+ (40*1) : rem 87 

POKEM, 160 :POKEM+54272, 6 :NEXT: POKE2023 
, 160 :POKE56295, 6 treni 94 

PRINT” {RVS }{ 39 SPAZI } {HOME } [<7>] " :PO 
KE53281, 1 : rem 240 

F0RX=1T05 : PRINT" { RVS } "SPC (5) A$B$A$B$A 
$B$A$B$A$ : NEXTX : F0RI=lT02 5 : CL ( I ) =1 : NE 
XT ; rem 52 

POKE53250, 12 6 :POKE53251, 228 : POKE53252 
,223 :POKE53253, 228 :rem 29 

GOSUB130 :POKE53248, 173 :POKE53249, 129: 
POKE53269, 7 :rem 241 

PL=— (PL=0) :POKE54273, 16*2 A PL:POKE5428 
0, 19*2 A PL : rem 170 

C1=PC ( PL) : C2=3 : G0SUB7 0 : FL=1 : POKE532 4 8 
, 173 :POKE53249, 129 : rem 181 

POKE53264, 0 :GOSUB40 : IFJY=4THENC1=PC (P 
L) :C2=3 :FL=1 :GOSUB70 :rem 248 

IFJY=8THENC1=3 :C2=PC (PL) : FL=2 :GOSUB70 

: rem 2 3 

IFFR=16THEN400 :rem 36 

GOSUB90 :GOSUB60 :XP=173 : YP=129 


: rem 22 

POKE53249, 0 :POKE53264, (XPAND256) /256: 
POKE53248, XPAND255 :POKE53249, YP 

:rem 239 

GOSUB40 : T=XP+MX ( JY) :XP=XP-MX (JY) *(T>7 
6ANDT<270) :T=YP+MY(JY) :rem 240 

YP=YP-MY ( JY) * (T>64ANDT<194) :IFFR=16TH 
EN440 trem 52 

GOSUB90 : C=PC (PL) :GOSUB60 : X=INT ( (XP-26 
) /48) :Y=INT( (YP-32) /32) :rem 62 

IFFL=2THEN510 : rem 241 

I FAR (X, Y) 014 THENGOSUB 1 2 0 : G0T03 9 0 

: rem 2 9 

0 J=0 : AR (X, Y) =C : GOSUB80 : G0T037 0 

: rem 6 9 

GOSUB60 : rem 124 

GOSUB40 : IFFR=0THENGOSUB60 :GOTO390 


: rem 109 


38 SUPERCOMMODORE 64 / 123 10 06 


530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 


650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 


IF ( JY+OJ=3ANDX=OX) OR ( JY+OJ=12ANDY=OY) 
THENGOSUB120 :GOTO390 :rem 185 

ONJYGOTO550, 560, 520,570, 520, 520, 520, 5 
80 :GOTO520 :rem 26 

T=AR (X, 1 ) : F0RA=1T04 : AR (X, A) =AR (X, A+l) 
:NEXT : AR (X, 5) =T :GOTO590 : rem 130 

T=AR(X, 5) :F0RA=5T02STEP-1 : AR(X, A) =AR( 
X,A-1) :NEXT : AR (X, 1) =T :GOTO590 

: rem 33 

T=AR ( 1 , Y) : F0RA=1T04 : AR (A, Y) =AR (A+l, Y) 
:NEXT: AR (5, Y) =T:GOTO600 : rem 128 


770 POKE82 8, VAL (MT$)-1: RETURN : rem 12 

780 DATA 0,0,0,0,0,0,0,0,0,0,168,0,2,170, 
64, 10,170 : rem 85 

790 DATA 144,10,170,144,42,170,164,42,170 
,164,42 :rem 53 

800 DATA 170,164,42,170,164,42,170,164,10 
,170,144 :rem 97 

810 DATA 10,170,144,2,170,64,0,168,0,0,0, 
0,0, 0,0 : rem 0 

820 DATA 0, 0, 0, 0, 0, 0,0, 0,0,0, 170, PO, 160, 

170,170 : rem 243 


T=AR ( 5, Y) : F0RA=5T02STEP-1 : AR (A, Y) =AR ( 830 DATA 164,170,170,164,170,170,164,170, 
A-1,Y) :NEXT : AR (1, Y) =T :GOTO600 170, 164 : rem 61 


: rem 3 1 

F0RA=1T05 : Y=A: C=AR (X, A) :GOSUB80 :NEXT : 
GOSUB610 :GOTO370 :rem 121 
F0RA=1T05 :X=A:C=AR (X, Y) :GOSUB80 :NEXT : 
GOSUB610 :GOTO370 :rem 136 
OJ=JY:OX=X:OY=Y: RETURN : rem 2 4 


840 DATA 170,170,164,170,170,164,170,170, 
164, 170 : rem 59 

850 DATA 170, 164, 1*70,170, 164, 170, 170, 164, 

170,170 :rem 60 

860 DATA 164,170,170,164,170,170,164,170, 
170,164 :rem 64 


FORA= 14336TO 14527: RE ADB : POKE A, B : NEXT : 
POKE53276, 3 :POKE53285, 0 :rem 104 
POKE53287 , 15 : FORA=22 4T0226 : POKE181 6+A 
, A : NEXT : RETURN : rem 124 
POKE53281, 1 :POKE53280, 6:PRINT"{CLR}"; 

: A$=" { 1 SH 0} [<Y>] { 1 SH P){GIU'} 


{ 3 SIN} [<H>] [<N>]{GIU'}{ 3 SIN} 

{ 1 SH L} [<P>] { 1 SH @}" :B$="{ 2 SU} 


VI 

: rem 

235 

FORI=0TO23 :PRINT" {RVS } {BLU} 

{ 39 SPAZI } " :M=1063+ (40*1) 

: rem 

93 

POKEM, 160 :POKEM+54272, 6 :NEXT 

:POKE2023 

, 160 :POKE56295, 6 

: rem 

100 

PRINT" {RVS }{ 39 SPAZI} {HOME} 

ti 

: rem 

147 


PRINT" {HOME } { 4 GIU ' } [<7>] " : F0RI=1T05 
: PRINTSPC ( 12 ) ; : F0RZ=1T05 : PRINT" { RVS } " 
A$B$; :NEXT : rem 9 

PRINT" { 2 GIU' }" :NEXT: PRINT" {HOME} 

{ 11 GIU' }"SPC(18) "(RVS) {YEL)"A$" 
(GIU' } [<1>] "; :GOSUB90 : rem 17 

PRINT A$; :GOSUB90 : PRINT" { 11 SU}{YEL}" 
A$ :GOSUB90 :PRINTSPC (15) " [<1>] {RVS}"A$ 
; : rem 4 6 

GOSUB90 : PRINT" { 7 GIU'H 6 SIN} {YEL} " 
A$; :GOSUB90 : PRINT" (HOME }( 8 GIU') 

(RVS } [<1>] "SPC (24) A$ : rem 77 

GOSUB90 : PRINT" { 3 GIU' } "SPC (15) " {YEL} 
{ RVS } "A$ ; :GOSUB90 : PRINT" { 11 SU} 

{ 6 SIN} [<1>] "A$; : rem 41 

GOSUB90 : PRINTSPC (6) "(GIU' } (YEL}"A$:GO 
SUB 90 : TX=25 : TY=6 :GOSUB270 : F0RI=1T05 

: rem 2 5 

PRINT" { 3 GIU'H 4 SIN}"; :NEXT:GOSUB 
110 :PRINT" (HOME) { 2 GIU ' } "SPC ( 10) " 
(RVS } { BLU } S WITCHEROO" 

: rem 103 

GOSUB620 :TY=21 :TX=16 :GOSUB270 : PRINT" 
(BLU } 1 { RVS } 0{ 2 SPAZI) (OFF}2 
{ 2 GIU'H 7 SIN) {RVS} JOYSTICK? (HOME} 
" : rem 217 

GETMT$ : IFMT$<>"l"ANDMT$O"2"THEN760 

: rem 1 9 
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870 DATA 170,170,164,170,170,164,170,170, 

164,170 : rem 62 

880. DATA 170,164,21,85,84,0,0,0,0,0,32,0, 

0,112,0 :rem 10 

890 DATA 0,248,0,1,252,0,0,112,0,0,112,0, 
0,112,0 :rem 247 

900 DATA 16,0,64,48,0,96,126,3,240,254,3, 
2 48,126 : rem 54 

910 DATA 3,240,48,0,96,16,0,64,0,112,0,0, 

112.0. 0 : rem 9 

920 DATA 112,0,1,252,0,0,248,0,0,112,0,0, 

32.0. 0 / :rem 194 


di D. Hensleye K. Mykytyn 

trad. e adatt. di E. Stefani 




Ecco uno dei migliori giochi che 
abbiamo mai pubblicato, sia dal 
punto di vista grafico che per 
velocità e movimento. 

E 1 richiesto l'utilizzo di un joy- 
stick. 

In Saloon Shootout controllate una pi- 
stola tramite il joystick in Porta 2; muo- 
vendo il joystick verso l'alto o verso i! 
basso controllate la distanza a cui arri- 
vano i proiettili sparati, aiutandovi con 
una piccola freccia situata nella parte 
destra dello schermo. 

Obiettivo principale del gioco à colpire il 
maggior numero possibile di boccali di 
birra, prima che essi cadano dal banco- 
ne. Ogni dieci colpi andati a segno com- 
parirà un piccolo topolino che corre at- 
traverso lo schermo: se riuscite a colpir- 
lo guadagnate un bonus, e il topolino in- 
verte la sua direzione aumentando con- 
temporaneamente la sua velocità. 

Non è tutto qui: dovete sempre tenere 
sott'occhio le tre finestre sullo sfondo 
del saloon, in quanto ogni tanto compa- 
re uno strano personaggio che vi sot- 
trarrà dieci proiettili, a meno che non riu- 
sciate prontamente a colpirlo. 

11 problema è ancora più complicato, per- 
chè alle finestre a volte si affacciano 
dei vostri amici (li potete distinguere dai 
malintenzionati poiché sorridono), e col- 
pire uno di essi vi costerà ben 100 
punti. 

Se state esaurendo la vostra scorta di 
proiettili, potete rimpinguarla colpendo 
le carte da gioco che appaiono sopra il 
pianoforte: dovete tuttavia colpire le car- 
te nel giusto ordine: 10, J, Q, K, e A. Se 


non rispettate questa sequenza, dovre- 
te ripetere da capo il tentativo avendo 
sprecato preziosi proiettili. 

Se raggiungete un punteggio pari a 500, 
ricevete un bonus in tempo di 50 secon- 
di (per aiutarvi a tener conto del tempo ri- 
manente, lo schermo lampeggia quando 
mancano 25 secondi al termine del 
gioco). 

Per alleviare la vostra tensione, il piani- 


sta al pianoforte suona un motivo ragti- 
me: per cambiare musica, sparate a uno 
dei tasti bianchi del pianoforte, mentre 
per eliminare la musica dovete sparare 
due volte allo stesso tasto. 

Note per il caricamento e la digi- 
tazione del programma 

Se disponete della cassetta allegata al- 
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la rivista, posizionatevi sul nastro in cor- 
rispondenza all'inizio del programma e 
digitate: 

LOAD"" ,1,1 

senza inserire spazi tra gli apici. Al ter- 
mine del caricamento digitate: 

NEW 

SYS1 0240 


Gli abbonati che non dispongono della 
cassetta allegata alla rivista dovranno 
digitare il programma tramite il consueto 
MLX (in altra parte della rivista). Prima 
di caricare MLX occorre riconfigurare la 
memoria del computer digitando: 

POKE44,60:POKE60*256,0:NEW 
si caricherà e attiverà quindi MLX rispon- 


dendo alle sue domande con: 

indirizzo iniziale: 1 0240 
indirizzo finale : 1 5303 

dopo aver digitato e salvato il program- 
ma si potranno seguire per il caricamen- 
to le istruzioni date più sopra per i pos- 
sessori di cassetta. 


Saloon Shootout 

10240 : 076 , 026 , 040 , 000 , 000 , 000, 142 
1024 6 : 000 , 000 , 000 , 000 , 000 , 000 , 00 ' 6 - 
10252 : 000 , 000 , 000 , 000 , 000 , 000, 012 
10258 : 000 , 000 , 000 , 000 , 000 , 000, 018 
102 64 : 000 , 000 , 169 , 000 , 14 1 , 092 , 17.0 
10270 : 003 , 141 , 093 , 003 , 169 , 147, 074 
1027 6 : 032 , 210 , 255 , 032 , 178 , 051,026 
10282 : 032, 07 6 , 047 , 032 , 093 , 052, 118 
10288 : 032 , 173,04 6 , 032 , 112 , 056,243 
10294 : 032 , 024, 04 6 , 032 , 252 , 041,225 
10300 : 206 , 011 , 040 , 208 , 012 , 173, 198 
10306 : 012 , 040 , 141 , 011 , 040 , 032 , 086 
10312 -. 008 , 048 , 032 , 095 , 042 , 206,247 
10318 : 00 9 , 04 0 , 208 , 012 , 173 , 010, 018 
10324 : 040 , 14 1 , 00 9 , 04 0 , 032 , 141,231 
10330 : 048 , 032, 04 5 , 042 , 206 , 097,048 
10336 : 003 , 208 , 009 , 173,0 98 , 003,078 
10342 : 141 , 0 97 , 003 , 032 , 247 , 042, 152 
10348 : 206 , 013 , 040 , 208 , 009 , 173,245 
10354 : 014 , 040 , 141 , 013 , 040 , 032,138 
10360 : 247, 04 8 , 173 , 013 , 040 , 201, 074 
10366 : 010, 17 6 , 015 , 173 , 102 , 003,093 
10372 : 201 , 001 , 208 , 008 , 173 , 017,228 
1037 8 : 255 , 041, 07 9 , 141 , 017 , 255, 158 
10384 : 20 6 , 015 , 040 , 208 , 00 9 , 173, 027 
10390 : 016 , 040 , 141 , 015 , 040 , 032,178 
10396 : 064 , 045 , 20 6 , 024 , 040 , 208, 231 
10402 : 009 , 173 , 025 , 04 0 , 14 1 , 024, 062 
10408 : 040 , 032 , 221 , 055 , 032 , 238,018 
10414 : 040 , 2 06 , 087 , 003 , 208 , 13 6,086 
10420 : 206 , 084 , 003 , 032 , 110 , 041,144 
1042 6 : 173 , 084 , 003,24 0 , 008 , 173,099 
10432 : 088 , 003 , 240 , 003, 07 6 , 060, 150 
10438 : 040 , 169 , 000 , 141 , 017 , 255, 052 
10444 : 162 , 023 , 160 , 008 , 024 , 032, 101 
10450 : 24 0 , 255 , 169 , 189 , 1 60 , 055 , 254 
10456 : 032 , 008 , 052 , 032, 04 5 , 042, 171 
104 62 : 032 , 110 , 041 , 032 , 252 , 04 1,218 
104 68 : 032 , 228 , 255 , 20 1 , 0 13 , 208, 141 
10474 : 24 9 , 07 6 , 034, 04 0 , 162 , 000,027 
104 80 : 202 , 2 08 , 253 , 096 , 024 , 109 , 108 
104 8 6 : 082 , 003 , 141 , 082 , 003 , 173,218 
104 92 : 083 , 003 , 105 , 000 , 141 , 083, 155 
104 98 : 003 , 173 , 099 , 003 , 208 , 033, 009 
10504 : 173 , 082 , 003 , 056 , 233, 24 4 , 031 
10510 : 141 , 004 , 040 , 173 , 083 , 003,202 


10516 : 233 , 001 , 013 , 004 , 040 , 144,199 
10522 : 014 , 173 , 084 , 003 , 024 , 105, 173 
10528 : 050 , 141 , 084 , 003 , 169 , 001, 224 
10534 : 141 , 099 , 003 , 076 , 110 , 041,252 
10540 : 141 , 003 , 040 , 173 , 082 , 003, 230 
1054 6 : 05 6 , 237 , 003 , 040 , 141 , 082, 097 
10552 : 003 , 173 , 083 , 003 , 233 , 000,039 
10558 : 141 , 083 , 003, 17 6 , 008 , 169 , 130 
10564 : 000 , 141 , 082 , 003 , 141 , 083, 006 
10570 : 003, 07 6 , 110 , 041 , 024 , 109 , 181 
1057 6 : 088 , 003 , 201 , 036 , 144 , 002, 042 
10582 : 169 , 035 , 141 , 088 , 003 , 0 , 96, 106 
10588 : 141 , 004 , 040 , 173 , 088 , 003,02 9 
10594 : 056 , 237 , 004 , 040 , 17 6 , 002,101 
10600 : 169 , 000 , 141 , 088 , 003 , 096,089 
10 606 : 138 , 072 , 152 , 072 , 169 , 14 6,091 
10612 : 032 , 210 , 255 , 169 , 005 , 032,051 
10618 : 210 , 255 , 162 , 006 , 160 , 000 , 147 
10624 : 024 , 032 , 240 , 255 , 174 , 082,167 
10630 : 003 , 173 , 083 , 003 , 032 , 019 , 191 
10636 : 052 , 162 , 010 , 160 , 000 , 024,036 
10642 : 032 , 240 , 255 , 174 , 084 , 003, 166 
10648 : 169 , 000 , 032 , 019 , 052 , 160, 072 
10654 : 000 , 173 , 084 , 003 , 201 , 025,132 
10660 : 208 , 002 , 160 , 241 , 174 , 086 , 011 
10666 : 003 , 208 , 005 , 140 , 025 , 255,038 
10672 : 208 , 003, 14 0 , 032 , 208 , 169,168 
10678 : 018 , 032 , 210 , 255 , 162 , 018, 109 
10684 : 160 , 002 , 024 , 032, 2 40, 2 55 , 133 
10690 : 173 , 070 , 003 , 010 , 010 , 024, 228 
10696 : 105 , 073 , 168 , 032 , 210 , 255,019 
10702 : 200 , 152 , 141 , 004 , 040 , 032,007 
10708 : 210 , 255 , 169 , 217 , 160 , 055,254 
10714 : 032 , 008 , 052 , 172 , 004 , 040, 014 
10720 : 200 , 152 , 032 , 210,2 55 , 200,24 9 
1072 6 : 192, 0 9 6 , 208 , 004 , 05 6 , 233, 251 
10732 : 062 , 168 , 152 , 032 , 210 , 255, 091 
10738 : 169, 14 6 , 032 , 210, 2 55 , 104,134 
1074 4 : 168 , 104 , 170 , 096 , 173 , 092,027 
10750 : 003 , 056 , 237 , 082 , 003 , 141,008 
10756 : 003, 04 0 , 173 , 093 , 003 , 237,041 
107 62 : 083 , 003 , 013 , 003 , 040 , 17 6,072 
107 68 : 011 , 160 , 001 , 185 , 082 , 003,202 
1077 4 : 153 , 0 92 , 003 , 136 , 016 , 247, 157 
10780 : 162 , 014 , 160 , 000 , 024 , 032, 164 
10786 : 240 , 255 , 174 , 092 , 003 , 173,203 
107 92 : 0 93 , 003, 07 6 , 019 , 052 , 173,200 
107 98 : 090 , 003 , 02 4 , 105 , 196 , 133,085 
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10804 : 004, 173,091,003, 105,003, 17 5 
10810 : 133, 005, 174 , 088, 003, 232 , 181 
10816 : 160, 000, 169, 188,202,24 0,255 
10822 : 002, 016, 002, 169, 032, 14 5, 180 
10828 : 004, 032, 04 8, 045, 173,086,208 
10834 : 003, 208, 002, 169, 113, 14 5,210 
10840 : 002, 200, 192, 035, 208, 228, 185 
1084 6 : 096, 173,074,003,208,058,194 
10852 : 206, 078, 003, 240, 001, 096, 212 
10858 : 032, 23 6, 042, 032, 2 51, 047, 234 
108 64 : 041, 007, 024, 105,007, 141, 181 
1087 0 : 07 6, 003, 169, 003, 141,075,073 
1087 6 : 003, 238, 074,003, 162, 004,096 
10882 : 032, 251, 047, 041, 003, 201, 193 
10888 : 003, 240, 247, 168, 185,233,188 
10894 : 042, 168, 140, 07 9,003, 024,086 
10900 : 032, 24 0,255, 169,056, 160,036 
10906 : 055, 032,008, 052, 173, 07 6,038 
10912 : 003,24 0,041,206, 07 6, 003,217 
10918 : 208, 193, 162,004,172,079,216 
10924 : 003, 024, 032,240,255, 169, 127 
10930 : 000, 141, 089, 003, 162, 090, 151 
10936 : 160, 055, 032, 251, 047, 016, 233 
10942 : 009, 169,001, 141,089, 003,090 
1094 8 : 162, 118, 160,055,138,032,093 
10954 : 008, 052, 206, 075, 003, 208, 242 
10960 : 152, 169,000,141,074,003,235 
10966 : 162, 004, 172,07 9,003, 032, 154 
10972 : 167, 053, 173, 089, 003, 240, 177 
1097 8 : 005, 169, 010,032,092,041,0 63 
10984 : 096, 013, 023, 033, 032, 2 51, 168 
10990 : 04 7, 041, 031, 009,032, 141, 027 
10996 : 078, 003, 0 96, 173, 094, 003, 17 9 
11002 : 201, Oli, 24 0, 023, 201, 010, 168 
11008 : 208, 018, 169, 000, 141,095,119 
11014 : 003, 169, 001, 141,096,003, 163 
11020 :238,094,003, 169, 101, 141,246 
11026 : 098, 003, 09 6, 17 3, 090, 003, 225 
11032 : 024, 105,216, 133, 004,173,167 
11038 : 091, 003, 105,002,133,005,113 

1104 4 : 172, 0 95, 003, 169, 032, 145, 14 0 
11050 : 004, 2 00, 14 5,004,173,095,151 

1105 6 : 003, 024, 10 9, 096,003, 141,168 
11062 :095, 003, 240, 041, 201, 014, 136 
11068 :240, 037, 162,000, 168, 173,072 

1107 4 : 096, 003, 016, 002,162,002,091 
11080 : 189, 105,043,145, 004,200,24 6 

1108 6 : 189, 106, 043, 14 5, 004, 032, 085 
110 92 : 04 8, 04 5, 173, 086, 003,208,135 
110 98 : 002, 169, 113,14 5,002,136, 14 5 
11104 : 14 5, 002, 096, 169, 000, 141,137 
11110 : 094, 003, 096, 027, 028, 029, 123 
11116 : 030, 172,071,003,177,004,053 
11122 : 201, 133, 144,04 9,201, 137,211 
11128 : 17 6, 045, 056,233, 133, 170, 165 
11134 : 18 9, 2 51, 04 4, 141,003, 040,02 6 
1114 0 : 165, 004, 056,237,003, 040, 125 
1114 6 : 133, 004, 165,005,233,000,166 
11152 : 133, 005, 162, 000, 032, 176, 140 
11158 : 04 4, 169, 010,032,244,040,177 
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11164 : 173, 0 94, 003, 201, 010, 17 6,045 
11170 : 003, 238, 094, 003, 096, 201, 02 9 
1117 6 : 132, 240, 008, 201, 137, 14 4,006 
11182 : 005, 201, 141,17 6,001,096,02 6 
11188 : 201, 160,240,07 6,201, 162, 196 
11194 : 17 6, 072, 201, 141, 144,068,220 
11200 : 173, 071, 003, 056, 233, 019, 235 
11206 : 170, 189,210,044,024, 109, 17 6 
11212 : 080, 003,201,005, 144,003,128 
11218 : 05 6, 233, 005, 170,189,060,155 
11224 : 003, 041, 127,074,074,205,228 
11230 : 070, 003, 208, 010, 206, 070, 021 

1123 6 : 003, 208, 016, 169,035,032,17 9 
11242 : 078, 041, 169,005, 141,070,226 

1124 8 : 003, 032, 112,056,07 6, 117,124 
11254 : 044, 169,010,032,2 44,040,017 
112 60 : 169,028, 157,060,003, 07 6,233 
11266 : 117, 04 4, 201, 102,208, 008, 170 
11272 : 169, 010, 032, 044, 041, 07 6, 124 
11278 : 117, 04 4,201, 162, 144,026, 196 
11284 : 201, 180, 17 6,022,201,171,203 
11290 : 17 6, 008,169, 100,032,04 4,043 
11296 : 041, 07 6, 117,044, 169, 000,223 
11302 : 141, 08 9, 003,169, 025, 032,241 
11308 : 24 4, 040, 201, 027, 144, 038,22 6 
11314 :201, 031, 176,034, 173,096,249 
11320 : 003, 073, 255, 024, 105,001,005 
1132 6 : 14 1,096, 003, 173, 0 98, 003,064 
11332 : 056, 233, 020, 048, 003,141,057 
11338 : 098, 003, 169, 101,056,237,22 6 
1134 4 : 098, 003, 032, 244, 040, 07 6, 061 
11350 : 117, 04 4, 201, 182,208,025,095 
11356 : 169,000, 141,101,003, 169, 163 
11362 : 001, 141, 102,003,238,100, 171 
11368 : 003, 173, 100,003,201,003,075 
1137 4 : 144,005, 169,000, 141,100, 157 
11380 : 003, 174,022,040,238,022,103 
11386 : 040, 165, 004, 157, 195, 059,230 
11392 : 165, 005, 157,215,059, 173, 134 
11398 : 071, 003, 157,235,059, 177,068 
11404 : 004, 201, 027, 144,006,201,211 
11410 : 031, 17 6,002, 169,032, 157,201 
11416 : 255, 059, 032, 048, 045, 177,000 
11422 : 002, 157,019, 060, 173,086, 143 
11428 : 003, 208, 002, 169, 113, 145,036 
11434 : 002, 169, 132,145,004,096,206 
1144 0 : 172, 071,003, 189,219, 04 4,106 
1144 6 : 145, 004, 200, 232, 189, 219, 147 
11452 : 044, 145,004,232, 152,024,021 
11458 : 105, 039, 168, 189, 219, 044, 190 
114 64 : 145, 004, 232, 200, 189,219, 165 
11470 : 044, 145,004,096,000,000,239 
1147 6 : 000, 001, 001, 001, 002, 002, 219 
11482 : 002, 137, 138, 139, 140, 141, 147 
11488 : 142, 143, 144, 145, 14 6, 147,067 
114 94 : 148, 14 9, 150, 151, 152, 153, 109 
11500 : 154, 155, 156, 157, 158, 159, 151 
11506 : 161, 102, 102, 102, 102, 032,075 
11512 : 032, 032, 032, 000, 001, 040, 129 
11518 : 041, 17 4,022,040,240,035,038 


11524 :202, 189, 195, 059, 133, 004, 018 
11530 : 189, 215, 059, 133,005,188,031 
1153 6 : 235, 059, 189,255,059, 14 5,190 
11542 : 004, 032, 048, 045, 189,019, 103 
11548 : 060, 145, 002, 202, 016, 227, 168 
11554 : 169, 000, 141,022,040, 173,067 
11560 : 017, 255, 041, 031, 141, 017,030 
11566 : 255, 096, 165 , 004 , 024 , 109, 187 
11572 : 020, 04 0, 133,002,165,005, 161 
11578 : 109, 021,040,133, 003,096,204 
11584 : 032, 07 6, 04 6, 074, 17 6, 013, 225 
11590 : 174,017,040,224,016,240, 013 
11596 : 006, 238, 017, 040, 032, 024, 177 
11602 : 04 6, 074, 17 6,013, 174,017,070 
11608 : 040, 224, 002, 240, 006, 20 6, 038 
11614 : 017, 040, 032, 024, 04 6, 074, 071 
11620 : 17 6, 020, 072, 173,071,003, 103 
1162 6 : 240, 013, 162,000,032,219,004 
11632 : 04 5, 206, 071, 003, 162,004,091 
11638 : 032, 2 19, 045, 104,074,17 6,000 
11644 : 022, 072, 173, 07 1,003, 201, 154 
11650 : 031, 2 4 0,013, 162,000,032,096 
11656 :219, 045, 238, 071, 003, 162, 106 
11662 : 004, 032, 219, 045, 104,07 4,108 
11668 : 17 6, 063, 173,023,040,208,063 
11674 : 052, 173, 088, 003, 240, 047, 245 
11680 : 169, 001, 032, 092, 041, 032, 015 
11686 : 051, 046, 173, 090, 003, 024, 041 
11692 : 105, 087, 133,004, 173,091,253 
11698 : 003, 105,000,133,005, 174,086 
11704 :017, 040, 240, 016, 165, 004, 154 
11710 : 024, 105,04 0,133,004, 165, 14 9 
11716 : 005, 105,000, 133,005,202, 134 
11722 : 208, 240, 032,109, 043, 169,235 
11728 : 001, 141,023,040,096, 169,166 
11734 : 000, 14 1,023, 04 0,0 96, 173, 175 
1174 0 : 090, 003, 024, 105,255, 133,062 
1174 6 : 004, 173,091,003, 105,002,092 
11752 : 133, 005, 172, 071, 003, 189,037 
11758 : 016, 04 6, 14 5, 004, 232, 152,065 
11764 : 024, 105,04 0, 168, 189,016,018 
11770 : 04 6, 145,004,232,152,024,085 
1177 6 : 105, 040, 168,189, 016,04 6,052 
11782 : 145, 004,232,200, 189,016, 024 
11788 : 04 6, 145, 004 , 096, 1 60, 160,111 
117 94 : 160, 160, 128, 129, 130, 131,088 
11800 : 072, 169, 255, 160,255, 153,064 
11806 : 255, 035, 200, 192, 016, 24 0, 200 
11812 : 009, 204, 017, 040, 208, 24 3, 245 
11818 : 169, 150, 208, 239, 032, 110, 182 
11824 : 04 6, 104,096, 173,086,003,044 
11830 : 208, 009, 173,017,255,009,213 
11836 : 064, 141,017,255, 096, 169,034 
11842 : 128, 141,004,212,169, 12 9,081 
11848 : 141, 004,212, 096, 173, 086, 016 
11854 : 003, 240, 004,173,000,220,206 
11860 : 096, 169,253,141, 008,255,238 
11866 : 234, 234, 173,008, 255, 141, 111 
11872 : 003, 040, 041, 128, 008, 173,233 
11878 : 003, 040,040,208,002,041,180 


11884 : 239, 096, 173,090,003,024,221 
11890 : 105, 119, 133,002, 173,091,225 
11896 : 003, 105,000,133,003, 160,012 
11902 : 000, 162,000, 169,032,236,213 
11908 : 017, 04 0, 208, 002, 169, 031,087 
11914 : 14 5, 002, 165,002,024, 109,073 
11920 : 020, 040, 133,252,165, 003,245 
11926 : 109, 021, 040, 133,253, 173, 111 
11932 : 086, 003, 208, 002, 169, 113,225 
11938 : 145, 252, 032, 233, 048, 232, 080 
11944 : 224, 017, 208, 213, 096, 173,075 
11950 : 086, 003, 240, 030, 169,000, 190 
11956 : 160, 023, 153, 000, 212, 136, 096 
11962 : 016, 250, 169,015, 141,024,033 
11968 : 212, 169, 025, 141, 019, 212, 202 
11974 : 169, 021, 141, 005, 212, 169, 147 
11980 : 040, 141, 001, 212, 169,000,255 
11986 : 14 1,008, 040, 141,022,040,090 
11992 : 141, 094, 003, 169, 125,141,121 
11998 : Oli, 04 0, 141,012,040, 169,123 
12004 : 005, 141, 010, 040, 141,009,062 
12010 : 040, 141,070,003, 141,102,219 
12016 :003, 169,065, 141,013,040, 159 
12022 : 14 1,014, 040, 169, 015, 14 1,254 
12028 : 015, 04 0, 141, 016, 040, 169, 161 
12034 : 250, 141,024,040, 141,025,111 
12040 : 040, 169,010, 141,071,003, 186 
1204 6 : 141, 017, 040, 162,004,032, 154 
12052 :219, 045, 169,255, 141,080,161 
12058 : 003, 169,000, 141,074, 003, 160 
12064 : 141, 082, 003, 141,083,003,229 
12070 : 14 1,099, 003, 169, 000, 141, 079 
1207 6 : 100, 003, 169, 255, 141,101,045 
12082 : 003, 169, 101,141,0 97,003,052 
12088 : 141,0 98,003, 169, 200, 141 , 040 
12094 : 084, 003, 169,035, 141,088,070 
12100 : 003, 032,236,042,032, 110, Oli 
12106 : 041, 0 96, 173, 086, 003, 208, 169 
12112 : 003, 07 6, 215, 047, 120,169, 198 
12118 : 051, 133,001,032, 118,04 7,212 
12124 : 169, 055, 133, 001, 088, 169, 195 
12130 : 024, 141,024,208, 169,216,112 
12136 : 141, 022, 208, 169, 015, 141,032 
12142 : 034, 208, 169, 002, 141, 035, 187 
1214 8 : 208, 0 96, 162, 007, 160, 000, 237 
12154 : 169, 000, 133,002,133,004,051 
12160 : 169, 208, 133,003, 169, 032,074 
12166 : 133, 005, 177,002,142, 003,084 
12172 : 040, 224, 004, 17 6, 007, 174,253 
12178 : 086, 003,208,002,073,255,005 
12184 : 174, 003, 04 0, 145, 004, 136, 142 
12190 : 208, 232, 230, 003, 230, 005, 042 
12196 : 224, 004, 208, 009, 173,086,100 
12202 : 003, 208, 004, 169,208, 133,127 
12208 : 003, 202, 016,212, 160, 000,001 
12214 : 185, 155, 056, 153, 000, 036, 255 
12220 : 185, 147, 057, 153,248, 036,24 6 
1222 6 : 185, 17 9,058,153,208,033,242 
12232 : 13 6, 208, 235, 160,031, 185, 131 
12238 : 147, 058, 153, 216, 032, 136, 180 • 
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12244 : 016 , 247 , 096 , 173 , 018 , 255,24 9 
12250 : 041 , 251 , 141 , 018, 2 55 , 173 , 073 
12256 : 019, 2 55 , 041 , 003 , 009 , 032,071 
122 62 : 141 , 019 , 255 , 169 , 216 , 141, 147 
122 68 : 007 , 255 , 169 , 098 , 141 , 023,161 
1227 4 : 255 , 169 , 065 , 141 , 022 , 255 , 125 
12280 : 07 6 , 118 , 047 , 173 , 007,04 0 , 197 
12286 : 0 1 0 , 010 , 056 , 109 , 007,04 0,230 
122 92 : 141 , 007 , 040 , 096 , 032 , 255 , 063 
122 98 : 04 4 , 238 , 008 , 040 , 173 , 090 , 091 
12304 : 003, 02 4 , 105 , 112 , 133 , 002, 139 
12 310 : 133 , 004 , 173 , 091 , 003 , 105, 019 
12 316 : 001 , 133 , 003 , 133 , 005 , 169 , 216 
12322 : 003 , 141 , 003 , 040 , 162 , 002, 12 9 
12328 : 160 , 014 , 177 , 002 , 201 , 133,215 
12334 : 14 4 , 004 , 201 , 137 , 144 , 002,166 
1234 0 : 169 , 032 , 200 , 145 , 002 , 136,224 
1234 6 : 13 6 , 016 , 237 , 2 00 , 169 , 032, 080 
12352 : 14 5 , 002 , 032 , 233 , 048 , 202,214 
12358 : 208 , 22 4 , 032 , 233 , 048 , 206, 253 
12364 : 003 , 040 , 208 , 214 , 173 , 008,210 
12370 : 04 0 , 074, 17 6 , 051 , 032 , 251, 194 
1237 6 : 047, 04 8, 04 6 , 032 , 251 , 047,047 
12382 : 041 , 003 , 201 , 003 , 240 , 037, 107 
12388 : 170 , 165 , 004 , 024 , 125 , 138,214 
12394 : 04 8 , 133 , 004 , 165 , 005 , 105,054 
12400 : 000 , 133 , 005 , 160 , 000 , 169,067 
12406 : 133 , 145 , 004 , 200 , 169 , 134,135 
12412 : 145 , 004 , 160, 04 0 , 169 , 135, 009 
12418 : 145 , 004 , 200 , 169 , 136 , 145, 161 
12424 : 004, 0 96 , 000,24 0 , 120 , 173,001 
12430 : 008, 04 0, 07 4, 17 6 , 085 , 162,175 
12436 : 009 , 173 , 090 , 003 , 024 , 105,040 
1244 2 : 230 , 133 , 004 , 173 , 091 , 003,020 
124 4 8 : 105 , 002 , 133 , 005 , 165 , 004,062 
12 454 : 05 6 , 233 , 040 , 133 , 002 , 165,027 
124 60 : 005, 2 33 , 000 , 133 , 003 , 160, 194 
124 66 : 001, 17 7 , 002 , 224 , 009 , 208, 031 
12472 : Oli , 201 , 133 , 208 , 007 , 072,048 
12478 : 169 , 005 , 032 , 04 4 , 04 1 , 104 , 073 
12484 : 201 , 132 , 208 , 002 , 169 , 032,172 

124 90 : 145 , 004, 13 6 , 01 6 , 228 , 1 65 , 128 
12496 : 004 , 056 , 233,04 0 , 133 , 004,166 
12502 : 165 , 005 , 233 , 000 , 133 , 005,243 
12508 ; 202 , 208 , 197 , 160 , 001 , 169 , 133 
12514 : 032 , 14 5 , 002 , 136 , 016, 24 9, 038 
12520 : 096 , 165 , 002 , 024 , 105 , 040 , 152 
1252 6 : 133 , 002 , 165 , 003 , 105 , 000,134 
12532 : 133 , 003 , 096 , 173 , 090 , 003,230 
12538 : 024 , 105 , 253 , 133 , 002 , 173, 172 
12544 : 091 , 003 , 105 , 001 , 133 , 003,080 
12550 : 169 , 002 , 141 , 006 , 040 , 173, 025 
1255 6 : 006 , 040 , 141 , 003 , 040 , 162, 14 8 

125 62 : 002 , 173 , 003 , 040 , 024 , 105, 109 
12568 : 04 0 , 168 , 141 , 004,04 0 , 177,082 
12574 : 002 , 172 , 003 , 040 , 145 , 002,138 
12580 : 173 , 004, 04 0 , 141 , 003 , 040,181 
1258 6 : 202 , 208 , 230 , 168 , 162 , 160,14 8 
12592 : 032 , 251, 04 7 , 201 , 050 , 17 6,037 
12598 : 002 , 162 , 181 , 138 , 145 , 002,172 
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12 604 : 20 6 , 006 , 040 , 016 , 202 , 206, 224 
12 610 : 102 , 003 , 240 , 001 , 096 , 173 , 169 
12 616 : 100 , 003 , 201 , 002 , 208 , 003, 077 
12 622 : 07 6 , 237 , 04 9 , 168 , 010 , 170 , 020 
12 628 : 189 , 122 , 050 , 133 , 004,18 9, 003 
12 634 : 123 , 050 , 133 , 005 , 185,17 5,24 9 
12 64 0 : 051 , 205 , 101 , 003 , 17 6 , 005 , 125 
12 64 6 : 169 , 255 , 141 , 101 , 003 , 238, 241 
12 652 : 101 , 003 , 173 , 101 , 003 , 010,243 
12 658 : 168 , 177 , 004 , 056, 2 33 , 001, 241 
12 664 : 010, 17 4 , 086 , 003 , 208,02 9 , 118 
12 670 : 170 , 18 9 , 246 , 049 , 141 , 014, 167 
12 67 6 : 255 , 173 , 018 , 255 , 041 , 252,102 
12 682 : 02 9 , 247, 04 9 , 141 , 018 , 255, 109 
12688 : 173 , 017 , 255 , 009 , 016 , 141, 243 
12694 : 017 , 2 55 , 07 6 , 182 , 04 9 , 170, 131 
12700 : 189 , 057 , 050 , 074 , 008 , 141,163 
12706 : 015 , 212 , 189 , 056 , 050 , 040,212 
12712 : 106 , 141 , 014 , 212 , 169 , 016 , 058 
12718 : 141 , 018 , 212 , 169 , 017 , 141, 104 
12724 : 018 , 212 , 173 , 090 , 003 , 024, 188 
12730 : 105 , 154 , 133 , 002 , 173 , 091,07 6 
12736 : 003 , 105 , 002 , 133 , 003 , 152,078 
12742 : 072 , 169 , 182 , 160 , 008 , 14 5 , 166 
1274 8 : 002 , 136 , 016 , 251 , 138 , 074,053 
12754 : 074, 07 4 , 201 , 008 , 144 , 002,201 
127 60 : 169 , 007 , 168 , 169 , 184 , 145, 034 
12766 : 002 , 200 , 169 , 185 , 145 ', 002, 157 
12772 : 104 , 168 , 200 , 177 , 004 , 141,254 
12778 : 102 , 003 , 09 6 > 173 , 017 , 255,112 
12784 : 041, 07 9 , 141 , 017 , 255 , 096 , 101 
127 90 : 084 , 002 , 108 , 002 , 131 , 002,063 

127 96 : 152 , 002 , 173 , 002 , 192 , 002,007 
12802 : 2 10 , 002 , 227 , 002 , 2 43 , 002, 17 6 
12808 : 002 , 003 , 016 , 003 , 030 , 003, 065 
12814 : 042 , 003 , 054 , 003, 0 66 , 003, 185 
12820 : 07 6 , 003 , 086 , 003, 0 96 , 003, 031 
1282 6 : 105 , 003 , 113 , 003 , 121 , 003,118 
12832 : 12 9 , 003 , 13 6 , 003 , 143 , 003,193 
12838 : 14 9 , 003 , 155 , 003 , 161 , 003,000 
1284 4 : 166 , 003 , 171 , 003,17 6 , 003,054 
12850 : 180 , 003 , 185 , 003 , 189 , 003, 101 
12856 : 135 , 033 , 134 , 035 , 162 , 037,080 

128 62 : 223 , 039 , 062 , 042 , 193 , 04 4,153 
128 68 : 107, 04 7 , 060 , 050 , 057 , 053 , 186 
1287 4 : 099 , 056 , 190 , 059 , 075 , 063 , 104 
12880 : 015, 0 67 , 012 , 071 , 069 , 075, 133 
12886 : 191, 07 9 , 125 , 084 , 131 , 089 , 017 
12892 : 214, 0 94 , 121 , 100 , 115 , 106,074 
12898 : 199 , 112 , 124 , 119 , 151 , 12 6 , 161 
12904 : 030 , 134 , 024 , 142 , 139 , 150,211 
12 910 : 12 6 , 159 , 250 , 168 , 006 , 17 9, 230 
12 916 : 172 , 189 , 243 , 200 , 230 , 212,082 
12 922 : 128 , 050 , 002 , 051 , 174 , 051, 066 
12 928 : 025 , 001 , 027 , 002 , 025 , 001,209 
12 934 : 027 , 002 , 025 , 002 , 022 , 001, 213 
12 940 : 023 , 002 , 022 , 001 , 023 , 002, 213 
12 94 6 : 022 , 002 , 020 , 001 , 022 , 002, 215 
12 952 : 020 , 001 , 022 , 002 , 020 , 002, 219 
12 958 : 015 , 008 , 022 , 001 , 020 , 002,22 6 


12964 : 019, 001,022,002,020, 002,230 
12970 : 025, 008, 018, 001, 022, 002, 24 6 
1297 6 : 025, 001, 02 9, 002, 027, 002, 006 
12982 : 025, 008, 025, 001, 027, 002, 014 
12988 :025, 001, 027, 002, 025, 002, 014 
12994 : 022, 001, 023, 002, 022, 001, 009 
13000 : 023, 002,022,002, 020, 001,014 
1300 6 : 022, 002, 020, 001, 022, 002, 019 
13012 : 020, 002,015,008,020,001,022 
13018 : 022, 002, 020, 001, 025, 002, 034 
13024 : 022, 002, 020, 001, 022, 002, 037 
13030 : 020, 001, 025, 002, 022, 002,04 6 
13036 : 020, 001, 022, 002, 020, 001, 04 6 
13042 : 025, 002, 020, 002, 018, 002,055 
1304 8 : 013, 001, 015, 002, 013, 001, 037 
13054 : 010, 002, 00 6, 004, 009, 001,030 
13060 : 016, 001, 009,001, 013,001,045 
13066 : 01 6, 002, 008, 001, 016, 001,054 
13072 : 008, 001, Oli, 001, 016, 005, 058 
13078 : 00 9, 001,016,001,009, 001, 059 
13084 : 013, 001, 01 6, 002, 008, 001, 069 
13090 : 01 6, 001, 008, 001, 01 1,001, 072 
130 96 : 016, 003,004,002,005,004,074 
13102 :004, 002, 004, 002, 005, 004, 067 
13108 : 004, 004, 009, 001,009, 001,080 
13114 : 012, 001, 02 1,001, 00 9, 001, 103 
13120 : 009, 001, 012, 001, 021, 001, 109 
1312 6 : 021, 001 , 02 1 , 001 , 024 , 001 , 139 
13132 : 033, 001, 021, 001, 021, 001, 154 
13138 : 024, 00 1,033, 001, 033, 002, 17 6 
1314 4 : 033, 002, 033, 002, 033, 001, 192 
13150 : 033, 002, 028, 001, 030, 001, 189 
13156 : 025, 001, 028, 001, 030, 002, 187 
13162 : 021, 002, 023, 001, 025, 001, 17 9 
13168 : 021, 001, 023, 001, 025, 001, 184 
13174 : 021, 001, 023, 001, 025, 001, 190 
13180 : 021, 001,023,002,021, 004,196 
1318 6 : 021, 002, 021, 002, 02 1,002, 199 
13192 : 021, 001, 021, 002, 016, 001,198 
13198 : 018, 00 1,0 13, 001, 01 6, 001, 192 
13204 : 018, 002, 00 9, 002, 01 1,001, 191 
13210 : 013, 001, 009, 001, Oli, 001, 190 
13216 : 013, 001, 009, 001, Oli, 001, 196 
13222 : 013, 001, 009, 001, Oli, 002, 203 
13228 : 00 9, 005, 000, 063, 084, 000, 077 
13234 : 173, 040, 003,201,237,240,04 8 
13240 : 043 , 169,000,141,018,040,083 
1324 6 : 169, 008, 141,019, 040, 169,224 
13252 : 000, 141, 020, 040, 169, 252,050 
13258 : 141, 021, 04 0, 169, 003, 141,205 
132 64 : 01 6, 255, 169,200, 141,015,236 
13270 : 255, 169,015, 141, 017, 255, 042 
1327 6 : 169, 000, 162, 000, 160, 012,211 
13282 : 208, 026, 169,000, 141, 018,020 
13288 : 040, 169,216,141,019,040,089 
13294 : 169, 000, 141,020,040, 169,009 
13300 : 2 12, 14 1,02 1,040, 169, 001, 060 
13306 : 162, 000, 160,004,141,086, 035 
13312 : 003, 142,090,003, 140, 091,213 
13318 : 003, 0 96, 174,086, 003,240,096 


13324 : 003, 07 6, 030, 171,07 6, 136,248 
13330 : 14 4, 142,003,04 0, 141,004,236 
13336 : 040, 160, 254, 200, 200, 173,027 
13342 : 003, 040, 05 6, 249, 083,052,001 
13348 : 173, 004,040,249, 084,052,12 6 
13354 : 17 6, 239, 152, 074, 141, 005, 061 

133 60 : 04 0, 169, 004 , 05 6, 237 , 005 , 047 
13366 :040, 170, 240, 008, 169, 032,201 
13372 : 032, 2 10, 255, 202, 208, 24 8, 191 
13378 : 17 4, 003, 040, 173, 004,04 0,244 
13384 : 172, 086, 003, 24 0, 003, 07 6, 140 
13390 : 205, 189, 07 6, 095, 164, 010, 04 9 
13396 : 000, 100, 000,232,003, 016, 179 

134 02 : 039, 255, 255, 169, 14 7, 032, 219 
134 08 : 210, 255, 173,018,040, 133,157 
13414 : 004, 173, 019, 04 0, 133,005,220 
13420 : 169,015, 174, 08 6, 003,208,251 
1342 6 : 002, 169, 111, 162, 004, 160> 210 
13432 : 000, 14 5, 004 , 13 6, 208 , 251 , 096 
13438 : 230, 005,202,208,246, 169, 162 
134 4 4 : 000, 17 4, 08 6, 003, 2 4 0,008,131 
134 50 : 141, 032, 208, 141, 033, 208, 133 
13456 :240, 006, 141, 021, 255, 141,180 
134 62 : 025, 2 55, 169, 019, 141, 003,250 
134 68 : 040, 174,003,04 0,160,007,068 
13474 : 024, 032, 2 4 0,255, 169,203,061 
134 80 : 160,053, 032,008, 052,238, 199 
13486 : 003, 04 0, 173, 003, 040, 201,122 
134 92 : 023, 208, 230, 162,023, 160,218 

134 98 : 003, 024,032,240,255, 169, 141 
13504 : 239, 160,053,032,008,052,224 
13510 : 162, 003, 160, 007, 024, 032, 074 
13516 :240, 255, 169, 016, 141, 003,004 
13522 : 040, 169, 022,160,054,032,175 
13528 : 008, 052,206, 003, 04 0,208,221 
13534 : 24 4, 162, 000, 160,005, 024,04 9 
13540 : 032, 2 40, 255, 169,042, 160, 102 
1354 6 : 054, 032, 008, 052, 169, 017,054 
13552 : 141, 003,040,174,003, 040,129 
13558 : 160, 008, 024, 032,24 0,255, 197 

135 64 : 169, 027, 160, 054, 032,008, 190 
13570 : 052, 173, 003, 040, 056, 233, 047 
1357 6 : 003,. 141, 003, 040, 201,010, 150 
13582 : 17 6, 2 27, 162,011, 160,025,007 
13588 : 024, 032,240, 255, 169,092, 064 
13594 : 160, 054, 032, 008, 052, 162, 238 
13600 : Oli, 160,02 6,024,032,240,013 
13606 : 255, 169, 120, 160, 054,032,060 
13612 : 008, 052, 162, 012, 160,02 9,211 
13618 : 024, 032, 2 4 0,255, 169, 246,248 
13624 : 1 60, 054, 032, 008, 052, 169, 019 
13630 : 013, 141, 003,04 0, 162, 004, 169 
13636 : 172, 003, 040, 032, 167, 053, 023 
13642 : 173, 003, 040, 024, 105,010, 173 
1364 8 : 141, 003, 040,201,04 0, 144,137 
13654 : 235, 173,090,003, 133,004,212 
13660 : 173, 0 91, 003, 133, 005, 160,145 
13666 : 009, 162, 058, 138, 14 5, 004,102 
13672 : 200, 232, 224, 086,208, 247, 021 
13678 : 160, 04 9, 162, 086, 138,14 5,082 
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13684 : 004 , 200 , 232 , 224 , 088 , 208,04 8 
13690 : 24 7 , 160 , 075 , 162 , 089 , 138,225 
13696 : 14 5 , 004 , 200 , 202 , 224 , 087,222 
13702 : 208 , 247 , 162 , 004 / 160 , 000 , 147 
13708 : 024 , 032 , 240 , 255 , 169 , 14 6,238 
13714 : 160 , 055 , 032 , 008 , 052 , 162,103 
13720 : 019 , 160 , 006 , 024 , 032 , 240 , 121 
1372 6 : 255 , 169 , 178 , 160 , 053 , 032,237 
13732 : 008 , 052 , 096 , 024 , 032 , 240 , 104 
13738 : 255 , 169 , 028 , 160 , 055,07 6 , 14 5 

1374 4 : 008 , 052 , 150 , 018 , 169 , 017,078 
13750 : 157 , 157 , 169 , 032 , 017 , 157, 103 

1375 6 : 157 , 157 , 169 , 032 , 032 , 017,24 0 
137 62 : 157 , 157 , 157 , 157 , 169 , 032,255 
137 68 : 032 , 032 , 000 , 150 , 018 , 032,208 

1377 4 : 032 , 032 , 032 , 032 , 032 , 032, 142 
13780 : 032 , 032 , 032 , 032 , 032 , 032, 14 8 

1378 6 : 032 , 032 , 032 , 032 , 032 , 032, 154 

137 92 : 032 , 032 , 032 , 032 , 032 , 032, 160 
137 98 : 032 , 032 , 032 , 032 , 032 , 032, 166 
13804 : 032 , 032 , 000 , 018 , 183 , 183 , 172 
13810 : 183 , 183 , 183 , 183 , 183 , 183,060 
13816 : 183 , 183 , 183 , 183 , 183 , 183, 066 
13822 : 183 , 183 , 183 , 183 , 183 , 183,072 
13828 : 183 , 183 , 183 , 183 , 183 , 183,078 
13834 : 183 , 183 , 183 , 183 , 183 , 183,084 
1384 0 : 183 , 183 , 183 , 183 , 183 , 000, 163 
1384 6 : 14 6 , 165 , 017 , 157 , 000 , 184,17 9 
13852 : 184 , 184 , 184 , 184 , 184 , 184,108 
13858 : 184 , 184 , 184 , 184 , 184 , 184, 114 
13864 : 184 , 000 , 150 , 018 , 061 , 058,255 
13870 : 017 , 157 , 157 , 059 , 14 6 , 018,088 
1387 6 : 061 , 058 , 017 , 157 , 157 , 059 , 049 
13882 : 062, 14 6 , 183 , 183 , 183 , 183,230 
13888 : 183 , 183 , 183 , 183 , 183 , 183,138 
13894 : 183 , 183 , 183 , 183 , 183 , 183,144 
13900 : 183 , 183 , 183 , 183 , 183 , 183, 150 
13906 : 183 , 183 , 183 , 183 , 183 , 183,156 
13912 : 183 , 183 , 183 , 000 , 005 , 018,148 
13918 : 169 , 017 , 157 , 032 , 017 , 157,131 
13 924 : 032 , 017 , 157 , 032 , 017 , 157,000 
13 930 032 , 017 , 157 , 032 , 017 , 157,006 

13 936 : 032 , 032 , 017 , 157 , 157 , 032,027 
13942 : 032 , 000 , 031 , 018 , 032 , 032, 007 
1394 8 : 032 , 032 , 032 , 032 , 032 , 032,060 
13 954 : 032 , 017 , 157 , 157 , 157 , 157,039 
13 960 : 157 , 157 , 157 , 157 , 157 , 032,185 
13966 : 032 , 032 , 032 , 032 , 032 , 032, 078 
13 972 : 032 , 032 , 017 , 157 , 157 , 157, 188 
13 978 : 157 , 157 , 157 , 157 , 157 , 157 , 072 
13984 : 032 , 032 , 032 , 032 , 032 , 032,096 
13990 : 032 , 032 , 032 , 017 , 157 , 157, 081 

13 996 : 157 , 157 , 157 , 157 , 157 , 157,090 

14 002 : 157 , 032 , 032 , 032 , 032 , 032,239 
14 008 : 032 , 032 , 032 , 032 , 017 , 157, 230 
14 014 : 157 , 157 , 157 , 157 , 157 , 157,108 
14020 : 157 , 157 , 032 , 032 , 032 , 032,12 6 
14 02 6 : 032 , 032 , 032 , 032 , 032 , 017,123 
14 032 : 017 , 157 , 157 , 157 , 157 , 157,242 
14 038 : 157 , 157 , 157 , 032 , 032 , 032,013 
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14044 : 032 , 032 , 032 , 032 , 032 , 032, 156 

14050 : 017 , 157 , 157 , 157 , 157 , 157,004 
14056 : 157 , 157 , 157 , 157 , 032 , 032, 156 
14062 : 032 , 032 , 032 , 032 , 032 , 032,174 
14068 : 032 , 000 , 005 , 018 , 032 , 053, 128 
1407 4 : 032 , 017 , 157 , 157 , 157 , 032,034 

14080 : 032 , 032 , 017 , 157 , 157 , 157,040 
14086 : 053 , 032 , 032 , 017 , 017 , 157,058 
14092 : 157 , 157 , 157 , 157 , 157 , 054,083 

14098 : 054 , 054 , 054 , 054 , 054 , 054, 086 

14104 : 054 , 054 , 055 , 000 , 158 , 018 , 107 
14110 : 032 , 194 , 032 , 017 , 157 , 157, 107 

14116 : 157 , 195 , 219 , 195 , 017 , 157,208 
14122 : 157 , 157 , 032 , 194 , 032 , 017, 119 
14128 : 157 , 157 , 157, 14 6 , 032 , 032,217 
14134 : 032 , 000 , 158 , 018 , 223 , 14 6 , 119 
14140 : 032 , 018 , 169 , 017 , 157 , 157, 098 
1414 6 : 157 , 032 , 14 6 , 032 , 018 , 032,227 
14152 : 017 , 157 , 157 , 157 , 205 , 14 6 , 143 
14158 : 032 , 018 , 206 , 017 , 157 , 157, 153 
14164 : 157, 14 6 , 223 , 032 , 1 69 , 000 , 043 
14170 : 005 , 018 , 035 , 036 , 037 , 017,238 
1417 6 : 157 , 157 , 157 , 038 , 039 , 040,172 
14182 : 017 , 157 , 157 , 157 , 041 , 042, 161 

14188 : 043 , 017 , 157 , 157 , 157, 14 6,017 
14194 : 032 , 032 , 032 , 000 , 005 , 018, 233 
14200 : 044 , 045,04 6 , 017 , 157 , 157, 074 
14206 : 157 , 047 , 04 8 , 04 9 , 017 , 157, 089 
14212 : 157 , 157 , 050 , 051 , 052 , 017, 104 
14218 : 157 , 157 , 157, 14 6 , 032 , 032,051 
14224 : 032 , 000 , 030 , 083, 0 67 , 079, 17 9 
14230 : 082 , 069 , 017 , 017 , 017 , 017, 113 
14236 : 157 , 157 , 157 , 157 , 084 , 073, 173 
14242 : 077 , 069 , 017 , 017 , 017 , 017, 120 
14248 : 157 , 157 , 157 , 157 , 072 , 073 , 173 
14254 : 071 , 072 , 017 , 017 , 017 , 017,12 9 
14260 : 157 , 157 , 157 , 157,0 67 , 065 , 172 
14266 : 082 , 068 , 000 , 005 , 080 , 082,247 
14272 : 069 , 083 , 083 , 032 , 082 , 069, 098 
14278 : 084 , 085 , 082 , 078 , 032 , 084, 131 
14284 : 07 9 , 032 , 080, 07 6 , 0 65 , 089 , 113 
14290 : 032 , 065 , 071 , 065 , 073 , 078, 082 
14296 : 000 , 017 , 157 , 157 , 000 , 238,017 
14302 : 080 , 003 , 173 , 080 , 003 , 201,250 
14308 : 005 , 208 , 005 , 169 , 000 , 141,244 
14314 : 080 , 003 , 173 , 090 , 003 , 024,095 
14320 : 105 , 130 , 133 , 004 , 173 , 091, 108 
1432 6 : 003 , 105 , 001 , 133 , 005 , 032,013 
14332 : 048 , 045 , 160 , 009 , 173 , 086 , 005 
14338 : 003 , 208 , 002 , 169 , 113 , 145 , 130 
1434 4 : 002 , 136 , 016 , 251 , 160 , 04 9 , 110 
14350 : 145 , 002 , 136 , 192 , 039 , 208,224 
14356 : 24 9 , 169 , 000 , 141 , 005 , 040,112 
14362 : 169 , 003 , 141 , 004 , 040 , 173,04 4 
14368 : 080 , 003 , 141 , 003 , 040 , 174,217 
1437 4 : 003 , 04 0 , 189 , 060 , 003 , 016,093 
14380 : 007 , 041 , 127 , 157, 0 60 , 003, 183 
14386 : 169 , 024 , 170 , 172 , 005 , 040,118 
14392 : 032 , 17 9 , 044 , 173 , 005 , 040,017 
14398 : 024 , 105 , 003 , 141 , 005 , 040 , 124 


14404 

14410 

14416 

14422 

14428 

14434 

14440 

14446 

14452 

14458 

14464 

14470 

14476 

14482 

14488 

14494 

14500 

14506 

14512 

14518 

14524 

14530 

14536 

14542 

14548 

14554 

14560 

14566 

14572 

14578 

14584 

14590 

14596 

14602 

14608 

14614 

14620 

14626 

14632 

14638 

14644 

14650 

14 656 

14662 

14668 

14674 

14680 

14686 

14692 

14698 

14704 

14710 

14716 

14722 

14728 

14734 

14740 

14746 

14752 

14758 


1238 , 003 / 040 , 173 , 003 , 040,053 
: 201 , 005 , 208 , 005 , 169 , 000, 150 
: 141 , 003, 04 0 , 206 , 004 , 040, 002 
: 208 , 205 , 032 , 251 , 047 , 041,102 
: 003 , 170 , 18 9 , 060 , 003 , 201,206 
: 028, 24 0 , 005 , 009 , 128 , 157,153 
: 060 , 003 , 096 , 004 , 008 , 012,031 
: 016 , 020 , 152 , 072 , 138 , 072,068 
: 160 , 004 , 169 , 000 , 153 , 060, 150 
: 003 , 136 , 016 , 250 , 160 , 004,179 
: 032 , 251 , 047 , 201 , 005, 17 6 , 072 
: 249 , 170 , 189 , 060 , 003 , 208,245 
: 243 , 185 , 107 , 056 , 157 , 060,180 
: 003 , 136 , 016 , 234 , 104 , 170,041 
: 104 , 168 , 096 , 150 , 150 , 150,202 
: 150 , 150 , 150 , 150 , 150 , 150,034 
: 150 , 150 , 150 , 150 , 150 , 150,040 
: 150 , 14 9 , 085,14 9 , 14 9 , 14 9,233 
: 085 , 101 , 169 , 106 , 154 , 106 , 12 9 
: 170 , 106 , 086 , 085 , 086 , 108,055 
: 255 , 127 , 12 6 , 254 , 255 , 127,052 
: 102 , 012 , 051 , 192,07 6 , 115,230 
: 064 , 127 , 127 , 192,04 8 , 192, 182 
: 2 12 , 017 , 017 , 209 , 209 , 127, 22 9 
: 127 , 127 , 127 , 127 , 127 , 127,206 
: 02 1 , 2 09 , 20 9 , 2 13 , 2 12 , 208, 010 
: 208 , 2 08 , 064 , 012 , 000 , 192,140 
: 012 , 067 , 000 , 115,0 67 , 000,235 
: 000 , 192 , 196 , 001 , 017 , 209 , 083 
: 000, 04 8 , 064 , 067 , 051, 07 6, 036 
: 015, 0 60 , 021 , 209 , 017 , 004, 062 
: 192 , 208 , 016 , 000 , 000 , 127, 02 9 
: 231 , 195 , 153 , 153 , 12 9 , 153,250 
: 153 , 2 54 , 251 , 241 , 251 , 23 9 , 119 
: 223 , 191 , 127 , 254 , 253 , 251,035 
: 24 7 , 223 , 143 , 223 , 127 , 231,192 
: 195 , 153 , 153, 12 9 , 153 , 153,196 
: 254 , 127 , 153 , 147 , 135 , 135,217 
: 147 , 153 , 255 , 254,2 51 , 241,061 
: 251 , 239 , 223 , 191 , 127 , 254,051 
: 253 , 251 , 247 , 223 , 143 , 223,112 
: 127 , 255 , 153 , 14 7 , 135 , 135,242 
: 147 , 153 , 254 , 127 , 129 , 157,007 
: 157 , 157,14 9 , 12 9 , 251 , 254 , 143 
: 251 , 241 , 251 , 23 9 , 223 , 191, 192 
: 127 , 2 54 , 253 , 251 , 2 4 7 , 223, 157 
: 143 , 223 , 127 , 127, 12 9 , 157, 22 6 
: 157 , 157 , 14 9 , 129 , 251 , 127,04 0 
: 225 , 243 , 243 , 243 , 243 , 17 9 , 196 
: 13 1 , 2 54 , 251 , 241 , 251 , 23 9 , 193 
: 223 , 191 , 127 , 254 , 253 , 251, 131 
: 247 , 223 , 143 , 223 , 127 , 127,184 
: 225 , 243 , 243 , 243 , 243 , 17 9 , 220 
: 131 , 255 , 115 , 109 , 109 , 109 , 190 
: 10 9 , 051 , 254 , 254 , 251 , 241, 016 
: 251 , 2 3 9 , 223 , 191 , 127 , 254, 147 
: 253 , 251, 24 7 , 223 , 143 , 223,208 
: 127 , 255 , 255 , 255 , 255 , 255, 020 
: 255 , 255 , 255 , 255 , 115 , 109 , 124 
: 109 , 109 , 109 , 051 , 254 , 255,029 


147 64 : 128 , 128 , 128 , 128 , 128 , 128,172 
14 770 : 128 , 255 , 128 , 128 , 128 , 128,04 9 
14 776 : 128 , 128 , 128 , 255 , 000 , 099 , 154 
14782 : 247 , 255 , 255 , 255 , 2 55 , 255, 17 6 
14788 : 00 1 , 001 , 12 9 , 12 9 , 129 , 129,202 
14 7 94 : 12 9 , 128 , 132 , 131 , 129 , 129,212 
14 800 : 12 9 , 12 9 , 12 9 , 255 , 255 , 255,080 
14806 : 000 , 034 , 034 , 008 , 008 , 129 , 171 
14 812 : 14 5 , 225 , 065 , 065 , 065 , 065,082 
14 818 : 065, 12 9 , 12 9 , 128 , 159 , 191,003 
14 824 : 255 , 255 , 255 , 065 , 062 , 128,228 
14 830 : 127 , 128 , 255 , 255 , 255 , 065,043 
14836 : 065 , 129 , 121 , 125 , 255 , 255, 170 
14 842 : 255 , 255 , 128 , 128 , 129 , 129,250 
14 84 8 : 12 9 , 12 9 , 12 9 , 255,0 99 , 247,220 
14854 : 136 , 128 , 128 , 128 , 128 , 255, 141 
14 860 : 001 , 12 9 , 193 , 193 , 193 , 193, 14 6 
14866 : 193 , 145 , 143 , 129 , 1.2 9 , 12 . 9 , 118 
14 872 : 129 , 131, 12 9 , 255 , 255 , 000, 155 
14 878 : 099 , 066 , 008 , 255 , 255 , 197, 142 
14 884 : 24 9 , 0 65 , 065 , 065 , 081, 24 9 , 042 
14 890 : 193 , 128 , 159 , 160 , 192 , 192, 042 
14 896 : 192 , 192 , 255 , 255 , 127 , 190,235 
14 902 : 028 , 012 , 004 , 000 , 255 , 129,22 6 
14 908 : 121 , 133 , 003 , 003 , 003 , 003,070 
14 914 : 255 , 255 , 255 , 255 , 231 , 231, 012 
14 920 : 255 , 255 , 255 , 099 , 177 , 216 , 04 9 
14 926 : 23 9, 2 47 , 251 , 253 , 2 54 , 000 , 042 
14 932 : 128 , 192 , 224,24 0,24 8 , 252,088 
14 938 : 254 , 028 , 142 , 199 , 224 , 240, 153 
14 944 : 24 8 , 252 , 254 , 227 , 113 , 056 , 222 
14 950 : 031 , 015, 007 , 003 , 001 , 000 , 159 
14 956 : 000 , 000 , 000 , 000 , 000 , 000 , 108 
14 962 : 128 , 001 , 000 , 000 , 000 , 000,243 
14 968 : 000 , 000 , 000 , 000 , 000 , 024,144 
14 97 4 : 060 , 0 60 , 060 , 060 , 12 6 , 192,172 
14 980 : 22 4 , 112 , 056 , 028 , 014 , 007,061 
14 986 : 003, 2 55 , 255 , 192 , 192 , 192,203 
14 992 : 192 , 192 , 192 , 000 , 000 * 000,208 
14998 : 015 , 031 , 255 , 008 , 000 , 000, 203 
15004 : 000 , 000 , 14 4 , 248 , 252 , 032,064 
15010 : 000 , 000 , 000 , 000 , 009 , 031,202 
15016 :0 63 ,. 004 , 000 , 000 , 000 , 000,235 
15022 : 240 , 248 , 255 , 016 , 000 , 000, 165 
15028 : 000 , 008 , 002 , 002 , 011 , 047,250 
15034 : 191 , 000 , 000 , 000 , 002 , 170,037 
15040 : 255, 2 54, 17 4 , 000 , 000 , 000 , 107 
1504 6 : 000 , 170 , 255 , 170 , 000 , 000,025 
15052 : 000 , 000 , 000 , 170 , 255 , 170,031 
15058 : 000 , 000 , 000 , 000 , 000 , 170,124 
15064 : 254 , 170 , 000 , 020 , 021 , 021, 190 
15070 : 021 , 085 , 084 , 080 , 000 , 085,065 
1507 6 : 064 , 069 , 081 , 084 , 064 , 021, 099 
15082 : 000 , 085 , 081 , 068 , 064 , 068,088 
15088 : 068 , 085 , 000 , 085 , 069 , 069 , 104 
15094 : 069, 0 69 , 064 , 085 , 000 , 085,106 
15100 : 064, 0 68 , 068 , 068, 0 64 , 085 , 157 
15106 : 000 , 085 , 064 , 068 , 068 , 068,099 
15112 : 064 , 085 , 000 , 085 , 06 9 , 065, 120 
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15118 : 064 , 068 , 069 , 085 , 000 , 080, 124 
15124 : 020 , 021 , 021 , 021 , 020 , 080 , 203 
15130 : 00 . 0 , 021 , 080 , 081 , 084 , 085, 121 
15136 : 080 , 02 1 , 000 , 085 , 017 , 081, 060 
15142 : 080 , 017 , 017 , 085 , 000 , 085, 066 
15148 : 01 6 , 017 , 017 , 017 , 016 , 085, 2 12 
15154 : 000 , 085 , 01 6 , 017 , 017 , 017, 202 
15160 : 016 , 085 , 000 , 085 , 016 , 020 , 022 
15166 : 020 , 020 , 020 , 085 , 000 , 085, 036 
15172 : 016 , 081 , 081 , 081 , 080 , 085, 236 
15178 : 000 , 085 , 017 , 017 , 017 , 017, 227 
15184 : 01 6 , 085 , 000 , 085 , 01 6 , 020 , 04 6 
15190 : 020 , 020 , 020 , 085 , 000 , 081 , 05 6 
15196 : 02 1 , 085 , 085 , 081 , 081, 0 64, 253 
15202 : 000 , 064 , 080 , 080 , 080 , 08 6, 232 
15208 : 08 6 , 022 , 000 , 000 , 000 , 000, 2 12 


15214 : 000 , 170 , 255 , 170 , 000 , 000, 193 
15220 : 000 , 000 , 000 , 170 , 255 , 170 , 199 
1522 6 : 000 , 000 , 000 , 000 , 000 , 170,036 
15232 : 255 , 170 , 000 , 000 , 000 , 000,041 
15238 : 128 , 170 , 255 , 191 , 186 , 000,040 
15244 : 000 , 008 , 032 , 128 , 224 , 248,012 
15250 : 254 , 190 , 190 , 190 , 190 , 190,070 
15256 : 190 , 190 , 170 , 184 , 032 , 000 , 150 
15262 : 000 , 000 , 000 , 000 , 000 , 190 , 092 
15268 : 190 , 190 , 190 , 190 , 190 , 190 , 02 4 
15274 : 170, 04 6 , 008 , 000 , 000 , 000 , 138 
15280 : 000 , 000 , 000 , 184 , 032 , 000,136 
1528 6 : 000 , 000 , 000 , 000 , 000 , 190 , 116 
15292 : 190 , 190 , 190 , 190 , 190 , 190 , 04 8 
15298 : 170 , 255 , 255 , 255 , 2 55 , 222, 070 
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di B. L. Ives 

trad. e adatt. di L. Prlotto 


Patiti del gioco degli scacchi? 
Questo programma fa per voi: 
dovete porre otto Regine sulla 
scacchiera, in una posizione ta- 
le che nessuna di esse si trovi 
sotto scacco da parte delle al- 
tre. Se non ci riuscite, il vostro 
"intelligente" C64 risolverà il 
problema per voi. 

Basato su un puzzle originariamente in- 


ventato a metà del 1 800 dal grande ma- 
tematico Karl Friedrich Gauss, il pro- 
gramma ne segue fedelmente la strut- 
tura. 

Inizialmente il programma vi chiederà di 
inserire il numero della colonna in cui de- 
siderate porre una Regina all'interno del- 
la prima riga, quindi quello della colonna 
in cui dovrà essere posta una Regina 
nella seconda riga, e cosi via per tutte 
le otto righe della scacchiera. 

Se cercate di porre una Regina in una 
posizione in cui si troverebbe sotto 
scacco, il computer rifiuta l'inserimento 
e vi chiede di riprovare oppure di preme- 
re il tasto C, R oppure E. 


La pressione del tasto R consente di ri- 
muovere l'ultima Regina posta sulla 
scacchiera e sistemarla in un'altra posi- 
zione. La pressione del tasto E provoca 
l'uscita dal programma, mentre quella 
del tasto C fa passare il controllo (e la 
soluzione del problema) al computer. 

Il C64 in questo caso passa in rassegna 
ogni possibile posizione, provando e ri- 
provando fino a che non venga trovata 
la soluzione; la pressione di un tasto 
qualsiasi mentre sta giocando il compu- 
ter fa tornare la situazione sotto il vo- 
stro controllo. 

Buon divertimento! 


Queens' Quarrel 

10 SC=1063 :CS-55336 : SI=54272 : TR=55296 :CC= 
1 60 : SR=532 6 9 : BC=53280 :rem 7 

20 PRINT" {CLR} "CHR$ (14) CHR$ ( 158) :POKEBC,0 
: POKEBC+1, 1 : rem 94 

30 MT$=" {OFF } { 5 SPAZI } {RVS } [<2>] 

{ 5 SPAZI) {OFF }{ 5 SPAZI) {RVS} 

{ 5 SPAZI) {OFF) { 5 SPAZI) {RVS} 

{ 5 SPAZI) {OFF} { 5 SPAZI) {RVS) {SPAZI} 

{ 3 SPAZI}" : rem 110 

40 TM$=" { RVS } { 5 SPAZI) {OFF} { 5 SPAZI) 

{ RVS } { 5 SPAZI) {OFF} { 5 SPAZI) {RVS} 

{ 5 SPAZI) {OFF} { 5 SPAZI) {RVS} 

{ 5 SPAZI) {OFF} { 5 SPAZI}" : rem 58 

50 FORP=SITOSI+24 : POKEP, 0 : NEXT : GOSUB 6 1 0 : G 
OSUB550 :GOTO2 8 0 -.rem 133 

6 0 FORN=R+ 1 TO 8 : 1 FBD ( N , C ) THENFL= 1 : RETURN 

: rem 7 

70 NEXT : IFR=1THEN100 . : rem 239 

80 FORN= 1 TOR- 1 : IFBD (N, C) THENFL=1 : RETURN 

: rem 4 

90 NEXT ■ : rem 168 


10 0 FORN=C+ 1 TO 8 : IFBD (R, N) THENFL=1 : RETURN 

: rem 50 

110 NEXT : IFC=1THEN140 : rem 15 

120 FORN=lTOC-l : IFBD (R, N) THENFL=1 : RETURN 

:rem 47 

130 NEXT : rem 211 

140 J=-l : K=-l : GOSUB1 8 0 : IFFLTHENRETURN 

: rem 8 7 

150 J=1 :K=1 :GOSUB180 : IFFLTHENRETURN 

:rem 254 

160 J=-l :K=1 :GOSUB180 : IFFLTHENRETURN 

: rem 4 4 

170 J=1 :K=-1 :GOSUB180 : RETURN : rem 221 

180 R1=R : C1=C : rem 217 

190 R1=R1+J:C1=C1+K : rem 39 

200 IFR1<OORR1>80RC1<OORC1>8THENRETURN 

:rem 197 

210 IFBD (RI, CI )THENFL=1: RETURN : rem 101 
220 GOTO190 ‘ : rem 103 

230 FORTT=2 040 T02 0 4 7 : POKETT , 14 :NEXT 

: rem 178 

240 IFX>255THENPOKE53264, PEEK (53264) OR (2* 
SP) :X=X-255:GOTO260 : rem 127 
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250 POKE53264, PEEK (532 64) ANDNOT (2 A SP) 

: rem 18 4 

260 POKE532 48+2 *SP,X:POKE5324 9+2 *SP,Y:POK 
ESR, PEEK (SR) OR (2 A SP) :RETURN : rem 46 
270 POKESR, PEEK (SR) ANDNOT (2 A SP) : RETURN 

:rem 22 

280 PRINTCHR$ (154) : SR$=CHR$ (19) +CHR$ (18) : 

F0RR=1T08 : rem 177 

290 GOSUB530 : POKE198 , 0 : IFR=0THENR=1 

:rem 145 

300 PRINTSR$" (RVSHBLK) ( 1 SH C)OL. IN 
{ 2 SPAZI )( 1 SH R) IGA"R"* 

{ 20 SPAZI}" :POKE19,l :rem 133 

310 INPUT" ( HOME } { 16 DES } " ;C2$ : IFC2$=""TH 
EN290 : rem 204 

320 C2$=LEFT$ (C2$, 1) :C2=VAL(C2$) :C3=ASC(C 
2$) : POKE 19, 0 : IFC3=67THENC=1 :GOTO450 

: rem 108 

330 IFC3=69THENPOKE198, 0 : SYS198 : rem 126 

340 IFC3=82THENR=R-1 : SP=R-1 : FORN=1T08 : BD ( 
R, N) =0 : GOSUB2 7 0 : NEXT : GOT02 9 0 : rem 8 7 

350 IFC2>0ANDC2<9THENC=C2 : FL=0 : T2=0 : BD (R, 
C) =1 : G0T037 0 : rem 158 

360 GOTO290 : rem 109 

370 GOSUB60 :rem 128 

380 IFFL=0THENSP=R-1 : X=C*40— 7 : Y=R*2 4 + 33 : G 
OSUB230 :GOSUB590 : IFR=8THEN420 

: rem 43 

390 IFFLTHENGOSUB530 : PRINTSR$" ( 1 SH S)PI 

ACENTE ! { 1 SH R)IPROVA O PREMI C, R, 
E" : rem 182 

400 IFFLTHENBD (R, C) =0 : GOSUB570 : F0RTT=1T03 



00 :NEXT :GOTO290 


: rem 

51 

410 

NEXTR 


: r em 

38 

420 

GOSUB530 : PRINTSR$" { 

1 SH 

S){ 1 SH 

0} 


{ 1 SH L){ 1 SH U) { 

1 SH 

Z|{ 1 SH 

I) 


{ 1 SH 0} { 1 SH N) { 

1 SH 

E } ! { 1 SH 

P} 


EMI SPAZIO PER RIGIOCARE 

" :GOSUB550 





: rem 

142 

430 

GETA$ : IFA$<>" "THEN430 

: rem 

142 

440 

GOSUB5 4 0 : GOT02 8 0 


: rem 

190 

450 

GOSUB530 : PRINTSR$" {■ 

1 SH 

R} ICERCA 

DI 


UNA SOLUZIONE..." 


: rem 

147 

460 

GOSUB60 


: rem 

128 

470 

IF (FL=0) AND (T2) THEN 

o 

II 

CN 

H 

: FLAG=1 : BD (R, 


C) =0 : SP=R-1 :GOSUB270 :GOSUB590 

: rem 188 

480 IFFL=0THENSP=R-1 :X=C*40-7 :Y=R*24+33 :G 
OSUB230 :GOSUB590 : IFR=8THEN420 

: rem 4 4 

490 I FFL= 0THENBD ( R , C ) = 1 : R=R+ 1 : C= 1 

: rem 194 

500 IFFLTHENC=C+1 : FL=0 : IFC=9THENC=1 :R=R-1 
: T2=l : IFR=0THENR=1 : T2=0 : rem 234 

510 GETA$ : IFA$<> " " THENGOSUB5 4 0 : GOT02 8 0 

: rem 2 8 

520 GOTO460 :rem 106 

530 FORN=1039TOl063:POKEN, 160 : NEXT : RETURN 

: rem 8 1 

540 F0RNN=1T08 : F0RN=1T08 : BD (NN,N)=0 :NEXT : 
NEXT : POKESR, 0 : RETURN :rem 39 

550 POKESI+1, 100 :POKESI+5, 27 :POKESI+15, 28 
:POKESI+24, 15 :POKESI+6, 69 :rem 205 


560 POKES 1 + 4 , 2 1 : F0RP=?1T07 0 0 : NEXT : POKES 1+4 
,20: RETURN : rem 242 

570 POKESI+1, 10 :POKESI+6, 240 :POKESI+5, 0 :F 
ORPP=lTO30 :POKESI+4, 17 :FORP=lTO10 :NEX 
T : rem 194 

58Ó POKESI+4, 16 :FORP=lTO10 : NEXT : NEXT : FORP 
=1T01000: NEXT: RETURN : rem 5 

590 POKESI+1, 45 -.POKESI + 5, 132 :POKESI+6, 132 
: POKESI+15, 0 :rem 155 

600 POKESI+4, 17 :FORP=lTO200 :NEXT :POKESI+4 
,16: RETURN :rem 242 

610 FORT=0TO63 : READD : POKE 14*64+T, D :NEXT : 
FORT=BC+7TOBC+14 : POKET, 5 : NEXT 

: rem 151 

620 PRINT" (HOME) (RVS) (BLK) { 40 SPAZI) 

[<2>] :F0RI=1T03 :F0RZ=1T03 :rem 91 

630 PRINTMTS; : NEXTZ : F0RQ=1T03 : PRINTTM$ ; :N, 
EXTQ, I : FORI=1T03 : PRINTMTS ; :NEXT 

: rem 163 

640 F0RI=1T02 : PRINTTM$ ; : NEXT : PRINTLEFT$ (T 
M$, 43) "{HOME}" : rem 99 

650 F0RRT=1T07STEP2 : POKE944+120*RT, 48+RT: 

POKE1059+5*RT, 48+RT :NEXT :rem 41 

660 F0RRT=2T08STEP2 :POKE1059+5*RT, 17 6+RT : 
POKE944+120*RT, 17 6+RT : NEXT : RETURN 

:rem 170 

670 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0 
,56,0,1,57,0,3,255,128,1,251,0 

: rem 4 9 

680 DATA 0,246,0,0,108,0,0,254,0,0,124,0, 
1,255,0,0, 124,0, 0,254, 0, 1,251,0 

:rem 123 

690 DATA 7,247,192,15,239,224,7,223,192,3 
1,255,240,0 :rem 5 

780 FOR C=1 TO L :rem 38 

790 I$=MID$ (LOC$,C, 1) : rem 103 

800 IF I$<=" 9" THEN I$=STR$ (VAL (1$) ) 

:rem 114 


810 IF I$=>"A" THEN I$=STR$ (ASC (1$) -55) 






: rem 

8 

820 

LOC=LOC+VAL ( I $ ) * 

16 A S 


: rem 

161 

830 

S=S-1 



: rem 

220 

840 

NEXT C 



: rem 

30 

850 

RETURN 



: rem 

125 

860 

FOR C=1 TO 14 



: rem 

62 

870 

READ CODE 



: rem 

214 

880 

PRINT#8 , CHR$ (CODE) ; 


: rem 

92 

890 

NEXT C 



: rem 

35 

900 

DATA 169,000 

: REM 

LDA 

#$00 






: rem 

165 

910 

DATA 133,122 

: REM 

STA 

$7A 






: rem 

174 

920 

DATA 169,008 

: REM 

LDA 

#$08 






: rem 

183 

930 

DATA 133,123 

: REM 

STA 

$78 






: rem 

168 

940 

DATA 032,096,166 

:REM 

JSR 

$A660 






:rem 

238 

950 

DATA 076,174,167 

: REM 

JMP 

$A7AE 






:rem 

14 
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Per collaborare a SUPERCOMMODORE 


Se desiderate inviare alla rivista i vostri programmi o articoli, vi proponiamo una piccola 'gui- 
da', con lo scopo particolare di rendere più accurata la stesura dei manoscritti: seguendo 
questi consigli si accresceranno le probabilità che i vostri lavori vengano pubblicati. 


1 l'angolo superiore sinistro della prima 
pagina dovrà contenere: nome, cogno- 
me, indirizzo, numero telefonico, codice fisca- 
le, luogo e data di nascita. 

l'angolo superiore destro della prima 
pagina dovrà contenere il tipo di com- 
puter al quale il lavoro si riferisce (C64 o 
CI 28), unitamente alle eventuali periferiche 
richieste. 

3 il titolo dell'articolo, sottolineato, dovrà 
iniziare a circa due terzi in altezza della 
prima pagina. 

l'articolo dovrà pervenire in Redazione 
sia registrato su supporto magnetico 
(formato SpeedScript o Easy Script per C64, 
oppure in formato ASCII MS-DOS o Macin- 
tosh) che stampato su carta. 

5 analogamente i programmi, che accom- 
pagnano gli articoli dovranno essere in- 
viati su supporto magnetico (floppy disk o 
cassetta); non ha importanza che venga forni- 
to un listato su carta degli stessi. 

nel caso i programmi siano in linguag- 
gio macchina, dovranno essere specifi- 
cati gli indirizzi iniziale e finale, e la procedu- 
ra da seguire per il loro caricamento ed attiva- 
zione. 

7 ' programmi in BASIC spezzati in più 
parti dovranno prevedere il carica- 
mento in overlay da cassetta e (opzionalmen- 
te) da disco. 


8 si tenga presente, che non potranno es- 
sere pubblicati listati troppo lunghi o ri- 
guardanti argomenti appena trattati sulla ri- 
vista. 

9 non verranno presi in considerazione 
articoli o programmi non originali e già 
sottoposti ad altre case editrici. 

il materiate pervenuto non sarà restitui- 
to, mentre verrà data comunicazione 
scritta o telefonica all'Autore soltanto nel ca- 
so in cui il lavoro sia stato ritenuto meritevole 
di pubblicazione. 

il compenso spettante per la collabora- 
zione prestata sarà commisurato alla 
complessità e all'interesse del lavoro (da un 
minimo di L. 50.000 a un massimo di L. 
300 . 000 ) e verrà corrisposto un mese dopo 
l'awenuta pubblicazione sulla rivista. 


Inviate articoli e programmi a: 

SUPERCOMMODORE 

Via Rosellini, 12 
201 24 Milano 

e saremo lietissimi di pubblicare i con- 
tributi migliori. 

La Redazione 







SUPERCOMMODORE 64 /1 28 10 86 51 



di M. Sedore 

trad. e adatt. di L. Priotto 



La vostra astronave è entrata 
nel bel mezzo di un folto gruppo 
di meteore In movimento: riuscì* 
rete a passarlo Indenni e vitto- 
riosi ? 

Questo gioco è il rifacimento per C64 di 
un classico gioco che ancora si può tro- 
vare nelle console dei bar: pilotando abil- 
mente la vostra astronave dovete evita- 
re di entrare in collisione con le meteore 
che arrivano da ogni direzione, oppure 
cercare di distruggerle sparando con il 
potente raggio laser di cui siete dotati. 
Dopo aver inserito un joystick in Porta 
2, date il RUN al programma: la vostra 
nave è al centro dello schermo mentre 
le meteore si muovono verso di voi da 
tutte le direzioni. 

Nella parte destra dello schermo vengo- 
no continuamente aggiornati il punteg- 
gio, il livello di gioco, e il numero di navi 
rimaste. 

Potete evitare le meteore spingendo la 
leva del joystick nella direzione in cui de- 
siderate muovervi: se superate uno dei 
bordi dello schermo, l'astronave rientre- 
rà in posizione simmetrica dalla parte 
opposta. 

E' possibile "congelare" l'azione in qual- 
siasi momento premendo il tasto SHIFT 
LOOK: il gioco riprenderà rilasciando lo 
stesso tasto. 

Per sparare contro una meteora, dirige- 
te la nave contro la meteora prescelta e 
premete il pulsante di fuoco: per ogni 
meteora del tipo grande che colpite, gua- 
dagnate 100 punti; se invece colpite 
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una meteora del tipo piccolo avrete un 
bonus di ben 200 punti. 

Iniziate il gioco con cinque navi e dopo 
ogni 30 secondi di battaglia il livello di 
difficoltà aumenta di un grado; se siete 
così abili da raggiungere il livello 9, otte- 
nete una nave in bonus. 

Note per II caricamento e la digi- 
tazione del programma 


Se disponete della cassetta allegata al- 
la rivista, il programma si carica e attiva 
normalmente come qualunque program- 
ma BASIC. 

Gli abbonati che non dispongono della 
cassetta allegata alla rivista dovranno 
digitare il programma tramite il consueto 
MLX (in altra parte della rivista). Prima 
di caricare MLX occorre riconfigurare la 



memoria del computer digitando: 

POKE44, 32:P0KE32*256, 0:NEW 
si caricherà e attiverà quindi MLX rispon- 


dendo alle sue domande con: 

indirizzo iniziale: 2049 
indirizzo finale: 4776 


dopo aver digitato e salvato il program- 
ma, esso si caricherà e attiverà normal- 
mente senza più bisogno delle POKE di 
rilocazione. 


Meteor Strlke 

204 9 : Oli, 008, 000,000, 158,050,228 
2055 : 048, 054, 04 9, 000,000,000, 158 
2061 : 169,253, 141, 021, 208, 169, 206 
2067 : 000, 141, 039, 208, 169,000, 064 
2073 :141,032,208, 141,033,208, 020 
207 9 : 169, 035, 141,248, 007, 169, 032 
2085 :135,141,000,208,141,002, 152 
2091 2208, 141, 001, 208, 141,003, 233 
2097 2208,076,087,018,000,000, 182 
2103 2000,000,000,255,255,255, 052 
2109 2000,001,001, 001,000,000, 064 
2115 2255,001,000, 000,255,001, 067 
2121 2000, 000,255,001,000, 173,246 
2127 2000, 220,041, 015, 133,251,227 
2133 2 169,016,024, 229,251, 170, 176 
2139 2224,000,208, 003, 076, 086, 176 
2145 2014,024,105,034,032,064, 114 
2151 2009,173,000,208,024,125,130 
2157 2054,008, 141, 000,208, 173, 181 
2163 2001,208,024, 125,066,008,035 
2169 2141,001,208, 096,002, 165, 222 
2175 2002,201,000,208,248,165, 183 
2181 2 160, 133,002,096, 000,000, 012 
2187 2 169, 147,032,210,255, 169, 097 
2193 2001,141,028,208, 169,012, 192 
2199 2 141,037,208, 169, 011, 141, 090 
2205 2 038, 208, 169, 045, 141, 24 9, 239 
2211 2 007, 169,001, 141,040,208, 217 
2217 2 169,000, 141, 023, 208, 141, 083 
2223 : 029, 208, 169, 001,141,052, 007 
2229 2003,169,000, 141,053,003,038 
2235 2 076,075,009,000,000,000, 091 
2241 2 000,000,000,000,000,000, 193 
2247 2 048,000, 000,220,000,000, 211 
2253 2 220, 000,003, 087,000,003, 006 
2259 2 087,000,003, 087,000, 195, 071 
2265 2 119,012, 195, 119, 012,205, 111 
2271 2253,204,245,253, 124,213,235 
2277 2 085,092,245, 085, 124,015, 107 
2283 2255, 192,000, 168,000, 000,082 
2289 2 168,000,000,032,000,000, 185 
2295 2032,000, 000, 000,000, 000, 023 
2301 2000,000,000, 000, 000,000, 253 
2307 2000,032,000,000,032,000, 067 
2313 2 000, 168, 000, 000, 168,000, 089 
2319 2 015,255, 192, 245,085, 124, 163 
2325 2213,085,092,245,253,124,009 
2331 2205,253,204, 195, 119,012,247 
2337 2 195, 119,012, 003,087,000, 193 
2343 2003, 087,000, 003,087, 000,219 
2349 2000,220,000, 000,220,000,229 
2355 2000,048,000,000,000,000,099 


2361 2 000,000,000, 000,000, 000, 057 
2367 2000, 141,248, 007,169, 002, 118 
2373 : 141,03 9,208, 138, 168, 096, 091 
237 9 : 1 69, 000, 14 1,016, 208, 169, 010 
2385 2 159,032,210, 255,169, 129, 011 
2391 2141,018,212, 169,255, 141,255 
2397 2015,212,162,255, 173,027,169 
2403 :212,041,015, 133,253, 169, 154 
2409 2029,032,210,255,232,228,067 
2415 2253,208,248, 169, 046, 032,043 
2421 : 2 10, 255, 165, 2 14, 20 1,024, 162 
2427 2208,226,076,064,010,000, 195 
2433 2000,000,000, 000, 000, 000, 129 
2439 2000,000,000,000,000,000, 135 
2445 2255, 192,000, 013, 192,000, 025 
2451 2053, 112,000, 053, 112,015,236 
2457 2213,120,053, 125, 122,213,231 
2463 2253, 122,053, 126, 120, 015, 079 
2469 2213, 112,000, 053, 112,000, 143 
2475 2053, 112,000, 013,192,000, 029 
2481 2255,192,000,000,000,000, 112 
2487 2000, 000, 000, 000, 000, 000, 183 
2493 2000,000,000,000,000,000, 189 
2499 2000,000,000,000,000,000, 195 
2505 2 015, 195, 000, 013,112,192,216- 
2511 2013,095,240,013,213, 112, 125 
2517 2013,253, 112, 003,117,192, 135 
2523 2000,245,192, 000,215, 160, 007 
2529 2000,215,160, 012, 222, 160, 226 
2535 2003,240,000, 000,240, 000, 202 
2541 2000,000, 000, 000, 000, 000, 237 
2547 2000,000,000, 000, 000,000, 243 
2553 2000, 000, 000, 000, 000, 000,249 
2559 2201,000, 000, 000, 000, 000, 200 
2565 2000, 000, 000, 000, 000,000, 005 
2571 2000,000,000,000,000,240,251 
2577 2000, 003,240, 000, 012,222, 238 
2583 2160,000,215, 160,000,215, 005 
2589 2160,000,245,192,003, 117,234 
2595 2192,013,253,112,013,213,063 
2601 2112,013,095,240,013, 112,114 
2607 2192,015,195, 000, 000, 000,193 
2613 2000,000,000, 000,000,000, 053 
2 619 : 000,000,000, 000,201, 162, 166 
2625 2 000, 169, 032, 141, 092, 010, 253 
2631 2169, 004, 141, 093, 010, 169, 145 
2637 2032,141,098,010,169,216,231 
2643 2141,099,010, 160,000, 189, 170 
2649 2048,012,153,224,007,189,210 
2655 2248,012,153,224,219,232, 159 
2661 2200,192,008,208,238,224, 147 
2667 2200,240,003,076,233,011, 102 
2673 2 160, 001, 169, 012,141,032, 116 


SUPERCOMMODORE 64 /1 28 10 86 53 


2 679 : 208, 169, Oli, 141, 120,014,014 
2 685 : 07 6, 192, 013, 000, 000, 000, 150 
2691 : 000, 000, 000, 000,000, 000, 131 
2697 : 000, 000, 000, 003, 255, 000, 139 
2703 : 003, 112, 000, 013, 092, 000, 107 
2709 : 013, 092, 000, 045,087,240, 114 
2715 : 173, 125,092, 173, 127,087,164 
2721 : 045, 125, 092, 013,087,240,251 
2727 : 013, 092, 000, 013, 092, 000, 121 
2733 : 003, 112,000, 003,255,000, 034 
2739 : 000, 000, 000, 000,000,000, 179 
274 5 : 000, 000, 000, 000, 000, 000, 185 
2751 : 000, 000, 000, 000,000,000, 191 
2757 : 000, 000,000, 000, 000, 195, 136 
27 63 : 240, 003, 013, 112,015,245,063 
2769 : 112, 013, 087, 112, 013, 127, 161 
2775 : 112, 003, 093, 192, 003, 095, 201 
2781 : 000, 010, 215, 000, 010, 215, 159 
2787 : 000, 010, 183, 048,000,015,227 
27 93 : 192, 000, 015, 000, 000, 000, 184 
27 99 : 000, 000,000, 000,000, 000, 239 
2805 : 000, 000, 000, 000,000,000,245 
2811 : 000, 000, 000, 000, 201, 000, 196 
2817 : 000, 000, 000, 000, 000,000, 001 
2823 .*000,000,000, 000,000,000, 007 
2829 : 000, 000, 000, 015, 000, 000, 028 
2835 : 015, 192, 010, 183,048,010,221 
2841 : 215, 000, 010, 215, 000, 003, 212 
2847 : 095, 000, 003, 093, 192,013, 171 
2853 : 127, 112, 013, 087, 112, 015, 247 
2859 : 245, 112, 003, 013, 112, 000, 016 
2865 : 195, 24 0,000, 000, 000, 000, 228 
2871 : 000, 000, 000, 000, 000,000, 055 
2877 : 000, 000,201, 000, 000,000, 006 
2883 : 000, 000, 000, 000, 000, 000, 067 
2889 : 000, 000, 000, 000, 000, 000, 073 
2895 : 000, 000, 000, 000, 000, 000, 079 
2901 : 000, 000, 000, 000, 000, 000, 085 
2907 : 000, 024,000, 000,060, 000, 175 
2913 : 000, 024, 000, 000, 000, 000, 121 
2919 .*000,000,000,000,000,000, 103 
2925 : 000, 000, 000, 000,000, 000, 109 
2931 : 000, 000,000, 000, 000,000, 115 
2937 : 000,000,000, 000, 000, 000, 121 
2943 : 048, 07 6, 000, 014,041,016, 066 
294 9 : 201, 000, 208, 030, 185, 054, 043 
2955 : 008, 141, 052,003, 185, 066, 082 
2961 : 008, 141, 053, 003, 169,255,006 
2967 : 141, 021, 208, 173, 000, 208, 134 
2973 : 141, 002, 208, 173, 001, 208, 122 
297 9 : 141, 003, 208, 234, 173,021, 175 
2985 : 208, 201, 253, 208, 003, 076, 094 
2991 :219, Oli, 032, 195,017,201, 082 
2997 : 000, 240, 007, 173,003,208,044 
3003 : 201, 000, 208, 008, 169,253, 002 
3009 : 14 1,021, 208, 076, 21 9, Oli, 101 
3015 : 173, 052, 003, 024, 109, 002, 050 
3021 : 208, 141,002,208,173,053,222 
3027 : 003, 024, 109,003,208, 141, 187 
3033 : 003, 208, 096, 173,021,208, 158 


3039 : 201, 255, 240, 196,173,000,008 
3045 : 220, 07 6, 131, Oli, 169,040, 108 
3051 : 024, 109, 092, 010, 205, 092, 255 
3057 : 010, 17 6, 003, 238, 093, 010, 003 
3063 : 141, 092, 010, 169,040,024,211 
3069 : 109, 098, 010, 205, 098, 010, 015 
3075 : 176, 003, 238, 099, 010, 141, 158 
3081 : 098, 010, 169, 061, 141,250,226 
3087 : 007, 14 1,251, 007, 14 1,252, 046 
3093 : 007, 169, 062, 141,253,007, 148 
3099 : 14 1,254, 007, 14 1,255, 007, 064 
3105 : 173, 030, 208, 076, 086, 010, 104 
3111 : 000, 000, 000, 000, 000, 000, 039 
3117 : 000, 000, 000, 160, 160, 160, 013 
3123 : 160, 160, 160, 160, 160, 160,243 
3129 : 160, 160, 160, 160, 160, 160, 24 9 
3135 : 160, 160,228,228,228,228,015 
3141 : 228, 228, 160,234, 147,131, 173 
3147 : 143, 14 6, 133, 186, 24 4, 234, 137 
3153 : 048, 04 8, 048, 048, 04 8, 048, 113 
3159 : 244, 160,227,227,227,227, 119 
3165 : 227, 227, 160, 160,228,228,043 
3171 : 228, 228, 228, 228, 160, 234, 125 
3177 : 140, 133,150, 133,140,186,219 
3183 : 244, 234, 032, 032, 048, 049, 238 
3189 : 032, 032, 244, 160,227,227,015 
3195 : 227, 227, 227, 227, 160, 160, 071 
3201 : 228, 228, 228, 228, 228, 228, 217 
3207 : 160, 234, 141, 133,148,133,060 
3213 : 143, 146, 244, 234, 019, 020, 179 
3219 : 018, 009, Oli, 005, 244, 160, 082 
3225 : 227, 227, 227, 227, 227, 227, 235 
3231 : 160, 160, 160, 160, 160, 160,095 
3237 : 160, 160, 160, 160, 160, 160, 101 
3243 : 160, 160, 160, 160, 160, 160, 107 
3249 : 160, 160, 160, 160, 160, 160, 113 
3255 : 160, 160, 160, 160, 160, 160, 119 
3261 : 160, 160, 160, 160, 160, 160, 125 
3267 : 160, 160, 160, 160,160,160, 131 
3273 : 228, 228, 228, 228, 228, 228, 033 
3279 : 160, 234, 147, 136, 137, 144, 141 
3285 : 147, 18 6,244,234,032,032,064 
3291 : 048, 053, 032, 032,244, 160,020 
3297 : 227, 227, 227, 227, 227, 227, 051 
3303 : 160, 160, 160, 160, 160, 160, 167 
3309 : 160, 160, 160, 160, 160, 160, 173 
3315 : 160, 160, 160, 160, 160, 252, 015 
3321 : 252, 07 6, 252, 076, 092, 252, 225 
3327 : 252, 252, 252, 252, 092, 252, 071 
3333 : 252, 140, 236, 076, 252, 108, 045 
3339 : 252, 252, 252, 108, 044, 220, 115 
3345 : 255, 07 9, 047, 255, 255, 255, 139 
3351 : 252, 252, 243, 243, 243, 003, 235 
3357 : 243, 083, 252, 252, 252, 012, 099 
3363 : 07 6, 252, 092, 252, 236, 252, 171 
3369 : 188, 092, 188,252, 172,252, 161 
3375 : 252, 252, 015, 255, 255, 127, 179 
3381 : 047, 255, 252, 252, 091, 251, 177 
3387 : 243, 067, 075, 251, 252, 252, 175 
3393 : 252, 252, 252, 252 , 188, 092, 073 


3399 1044,252/092,092,252,204,239 
3405 :252, 07 6, 252, 220, 245, 181, 023 
3411 : 085, 245, 245, 101,108,252,095 
3417 : 253, 253, 253, 253, 253, 253, 071 
3423 : 252, 108, 252, 252, 252, 252, 183 
3429 : 044, 252, 252, 252, 092, 252, 221 
3435 : 252, 252, 252, 092, 220, 220, 115 
3441 : 028, 092, 252, 204, 252, 076, 24 9 
3447 : 252, 236, 252, 252, 092, 252, 175 
3453 :252, 012, 252, 252, 252, 252, 117 
3459 : 252, 252, 252, 092,252,252, 203 
34 65 : 076, 07 6, 220, 252, 252, 252, 241 
3471 : 012, 252, 108, 092,252,252, 087 
3477 :252, 252, 092, 252, 255, 191, 163 
3483 : 255, 095, 095, 255, 204, 204, 239 
3489 : 243, 243, 083, 083,243,227, 003 
34 95 : 044, 220, 092, 012,252, 172, 191 
3501 : 092, 044, 252, 252, 252, 252, 037 
3507 : 252, 012, 252, 252, 252, 252; 171 
3513 :252, 012, 012, 252, 252, 252, 193 
3519 : 252, 169,018, 032,210,255, 103 
3525 : 169, 000, 133, 214, 16 9, 02 9, 143 
3531 : 133, 211, 032, 016, 229, 169, 225 
3537 : 012, 141, 134, 002, 169, 160, 059 
3543 : 032, 210, 255, 032,210,255, 185 
3549 : 032, 210, 255, 165,214,201, 018 
3555 : 024, 240, 015, 169,017,032,212 
3561 : 210, 255, 169, 029,133,211,216 
3567 : 032, 016, 229, 076, 213, 013, 050 
3573 : 169, 255, 141, 027, 208, 160, 181 
3579 : 001, 07 6, 088, 017,000, 169, 090 
3585 : 000, 234, 141, 062,003, 162,091 
3591 : 014, 169, 128, 141,063,003,013 
3597 : 189, 000, 208, 201, 231, 144,218 
3603 : 009, 173, 062,003, 013,063, 086 
3609 :003, 141,062, 003,202,202,126 
3615 : 078, 063, 003, 224, 254, 208, 093 
3621 : 231, 173, 062, 003, 141, 027, 162 
3627 :208, 07 6, 247, 016, 206,034,082 
3633 : 003, 173, 054, 003, 201, 000, 227 
3639 : 208, 008, 032, 047, 017, 169, 024 
3645 : 128, 141, 054, 003, 206, 055, 136 
3651 : 003, 173,055,003,201,000, 24 6 
3657 :208, 008, 032, 077, 018, 169,073 
3663 : 042, 141, 055, 003, 07 6, 094, 234 
3669 : 014, 169, 000, 141,039,208, 144 
3675 : 076, 104, 008, 206, 002, 000, 231 
3681 : 173, 002, 000, 201, 000, 208, 169 
3687 : 038, 169,080, 141,002,000, 021 
3693 : 206, 057, 003, 173,057,003,096 
3699 : 201, 000, 208, 023, 169,008,212 
3705 : 141, 057, 003, 162,004,132, 108 
3711 : 254, 160, 002, 032, 013, 015, 091 
3717 : 232, 232, 200, 224, 016, 208, 221 
3723 : 246, 164, 254, 173,021,208, 181 
3729 : 201, 252, 208, 001, 096, 07 6, 211 
3735 : 047, 014, 000, 000, 000, 000, 212 
3741 : 000, 000, 000, 189,000,208, 042 
3747 : 201, 000, 240, 007, 189, 001, 033 
3753 : 208, 201, 000, 208, 058, 169,245 


3759 : 000, 157,000,208, 157,001, 18 6 
3765 : 208, 032, 127, 018, 041, 001, 096 
3771 -.201,001,208, Oli, 173, 027, 040 
3777 : 212, 04 1,250, 157,000,208,037 
3783 : 076, 210, 014, 173,027,212, 143 
3789 : 041, 250, 157, 001,208, 173,011 
37 95 -.027,212,041,007,056,233, 019 
3801 : 003, 157, 064, 003, 173,027, 132 
3807 : 212, 041, 007, 056,233,003,007 
3813 : 157, 065, 003, 189, 000, 208, 083 
3819 : 024, 125,064, 003, 157,000, 096 
3825 : 208, 18 9, 001, 208, 024, 125, 228 
3831 : 065, 003, 157 , 001, 208, 096, 009 
3837 : 000, 000, 000, 173, 027,212,153 
3843 : 041, 015,201, 000,240,247, 235 
384 9 : 153,03 9,208, 096, 185,248, 170 
3855 : 007, 201, 063, 240, 003, 076, 093 
3861 : 160, 014, 134, 251, 152,170, 134 
3867 :254, 039, 208, 222, 096,003, 081 
3873 : 189, 096, 003, 201, 000, 208, 218 
3879 : 020, 166, 251, 169,000,157,034 
3885 : 000, 208, 173, 027, 212,041, 194 
3891 : 001, 024, 105, 061, 153,248, 131 
3897 : 007, 234, 234, 166,251,096, 021 
3903 : 000, 000, 000, 000,000,000,063 
3909 : 000, 000, 000, 000,000, 000,069 
3915 .-000,000,000,000,000,000, 075 
3921 : 000, 000, 000, 000, 003, 063, 147 
3927 : 000, 015, 223, 192,031,255, 035 
3933 : 224, 030, 243, 192,02 9,239, 026 
3939 :240, Oli, 207, 240, 007, 254, 034 
3945 : 224, 007, 252, 224, 00 1,251, 040 
3951 : 192, 000, 223, 128,000,238, 124 
3957 : 000, 000, 000, 000,000,000, 117 
3963 : 000, 000, 000, 000, 000, 000, 123 
3969 : 000, 000, 000, 000, 000, 007 , 136 
3975 : 000, 000, 015, 224, 000, 031, 14 9 
3981 : 252, 000, 111, 251,24 0,231,202 
3987 : 191, 24 8, 238, 095, 224, 254, 117 
3993 : 255, 012, 255, 254, 062, 127,094 
3999 -.24 8, 127,02 9, 255,255,097, 14 6 
4005 : 239, 255, 115,225,23 6,127,082 
4011 : 242, 24 4, 063, 255,24 8, 007,206 
4017 : 252, 24 8, 000, 227, 240, 000, 120 
4023 1001/224,000,000,000,000, 152 
402 9 : 000, 000, 000, 000,000,000, 189 
4035 : 000, 000, 000, 000, 128,000, 067 
4041 : 012, 004, 000, 000, 064, 072, 097 
4047 : 032, 019, 144,019, 12 6, 193,228 
4053 : 061, 08 9, 192, 057, 14 9,07 6, 069 
4059 : 197,105, 17 6, 013, 17 0,116, 228 
4065 : 014, 14 9,096, 077, 119,240, 152 
4071 : 053, 08 9, 198, 024,24 9, 192,012 
4077 : 032, 002, 112,003,066,064, 004 
4083 : 192, 016, 000, 002, 000, 04 8, 24 5 
4089 : 000, 000, 000, 000,000,000,24 9 
4095 : 000, 173, 030, 208, 141,059, 098 
4101 : 003, 041, 003, 201, 003, 240, 240 
4107 : 014, 04 1,001, 201, 001, 208, 221 
4113 -.008,169,063, 032, 152,017,202 


4119 

: 076, 

035, 

016, 

032, 

128, 

Oli, 

065 

4125 

: 234 , 

234, 

234, 

076, 

107, 

016, 

162 

4131 

: 032, 

041, 

016, 

076, 

059, 

016, 

019 

4137 

: 230, 

253, 

165, 

253, 

201, 

000, 

119 

4143 

: 208, 

248, 

230, 

254, 

165, 

254, 

126 

4149 

: 201, 

000, 

208, 

240, 

096, 

000, 

030 

4155 

: 162, 

004, 

157, 

000, 

208, 

232, 

054 

4161 

: 224 , 

015, 

208, 

248, 

169, 

035, 

196 

4167 

: 032 , 

161, 

017, 

160, 

001, 

169, 

099 

4173 

: 135, 

141, 

000, 

208, 

141, 

001, 

191 

4179 

: 208, 

173, 

030, 

208, 

206, 

108, 

248 

4185 

: 007 , 

173, 

108, 

007, 

201, 

048, 

121 

4191 

: 240, 

001, 

096, 

032, 

245, 

017, 

214 

4197 

: 141, 

024, 

212, 

076, 

170, 

016, 

228 

4203 

: 173, 

059, 

003, 

041, 

003, 

201, 

075 

4209 

: 003, 

240, 

050, 

041, 

002, 

201, 

138 

4215 

: 002 , 

208, 

044, 

032, 

137, 

017, 

047 

4221 

: 234 , 

162, 

002, 

173, 

059, 

003, 

246 

4227 

: 037 , 

254, 

197, 

254, 

208, 

017, 

074 

4233 

: 189, 

248, 

007, 

201, 

063, 

240, 

061 

4239 

: 010, 

032, 

220, 

017, 

234, 

234, 

122 

4245 

: 169, 

005, 

157, 

096, 

003, 

006, 

073 

4251 

: 254 , 

232, 

224, 

008, 

208, 

223, 

024 

4257 

: 169, 

253, 

141 , 

021, 

208, 

173, 

102 

4263 

: 030, 

208, 

096, 

032, 

010, 

017, 

048 

4269 

: 234 , 

234, 

169, 

Oli, 

133, 

214, 

144 

4275 

: 169, 

010, 

133, 

211, 

032, 

016, 

238 

4281 

: 229, 

169, 

007, 

141, 

134, 

002, 

099 

4287 

: 162, 

000, 

189, 

222, 

016, 

032, 

044 

4293 

: 210, 

255, 

232, 

224, 

010, 

208, 

056 

4299 

: 245, 

032, 

094, 

014, 

032, 

000, 

108 

4305 

: 014 , 

173, 

000, 

220, 

041, 

016, 

161 

4311 

: 201, 

000, 

208, 

241, 

076, 

232, 

149 

4317 

: 016, 

146, 

071, 

065, 

077, 

069, 

153 

4323 

: 032 , 

079, 

086, 

069, 

082, 

162, 

225 

4329 

: 004 , 

169, 

000, 

157, 

000, 

208, 

003 

4335 

: 232 , 

224, 

016, 

208, 

248, 

076, 

219 

4341 

: 002, 

017, 

173, 

021, 

208, 

201, 

099 

4347 

: 252, 

208, 

001, 

096, 

076, 

220, 

080 

4353 

: Oli, 

169, 

006, 

141, 

120, 

014, 

206 

4359 

: 07 6, 

013, 

008, 

169, 

001, 

141, 

159 

4365 

: 120, 

014, 

169, 

252, 

141, 

021, 

218 

4371 

: 208, 

096, 

162, 

004, 

254, 

192, 

167 

4377 

: 004 , 

189, 

192, 

004, 

201, 

058, 

161 

4383 

: 208, 

009, 

169, 

048, 

157, 

192, 

046 

4389 

: 004 , 

202, 

076, 

023, 

017, 

096, 

199 

4395 

: 000, 

000, 

000, 

000, 

206, 

128, 

121 

4401 

: 003, 

173, 

128, 

003, 

201, 

000, 

045 

4407 

: 208, 

028, 

206, 

129, 

003, 

173, 

034 

4413 

: 129, 

003, 

201, 

000, 

208, 

018, 

108 

4419 

: 169, 

Oli, 

141, 

129, 

003, 

032, 

040 

4425 

: 209, 

017, 

201, 

057, 

240, 

006, 

035 

4431 

: 032 , 

254, 

017, 

206, 

120, 

014, 

210 

4437 

: 07 6, 

078, 

008, 

169, 

Oli, 

141, 

056 

4443 

: 129, 

003, 

169, 

000, 

170, 

157, 

207 

4449 

: 000 , 

212, 

232, 

224, 

024, 

208, 

229 

4455 

: 248, 

169, 

255, 

141, 

015, 

212, 

119 

4461 

: 1 69, 

128, 

141, 

018, 

212, 

169, 

178 

4467 

: 143, 

141, 

024, 

212, 

169, 

017, 

053 

4473 

: 141, 

012, 

212 , 

169, 

185, 

141, 

213 
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447 9 : 013, 212, 169/ 001, 141,008, 159 
4485 : 212, 07 6, 172,017,169, 129, 140 
4491 : 141,011,212, 169, 128, 141, 173 
4497 : Oli, 212, 169, 004, 133,254, 160 
4503 : 096, 141,248, 007, 169, 129, 173 
4509 : 141,011,212, 096, 141,24 8, 238 
4515 : 007, 169, 128, 141,011,212,063 
4521 : 096, 000, 000, 234, 234, 234, 199 
4527 : 234, 234, 169, 185, 141,006, 120 
4533 : 212, 169,033, 141,005,212, 185 
4539 : 169,001, 141, 001, 212, 076, 019 
4545 : 047, 014, 169, 033, 141,004, 089 
4551 : 212, 169, 032, 141, 004, 212, 201 
4557 : 173, 002, 208, 096, 173, 100, 189 
4563 : 005, 201, 056, 208, 003, 238, 154 
4569 : 108, 007, 096, 134,251, 189,234 
4575 : 248, 007, 201, 062, 240, 003, 216 
4581 : 032, 02 1,017, 032, 02 1,017, 113 
4587 : 169,063, 166,251, 157,248, 009 
4593 : 007, 096, 213, 000, 169,000,214 
4599 : 141,021,208, 032,041,016, 194 
4605 : 096, 169,008, 133,211,169, 015 
4 611 : Oli, 133, 214, 132,003,032, 016 
4 617 : 016, 22 9, 169, 007,141,134, 193 
4 623 : 002, 162,000, 189, 062, 018, 192 
4 62 9 : 032, 210, 255, 232, 224, 015, 221 
4 635 : 208, 24 5, 032, 04 1,016, 032, 089 
4641 : 041, 016, 169, 008, 133,211, 099 
4 647 : 169, Oli, 133, 214, 032, 016, 102 
4653 : 22 9, 169; 032, 032, 210, 255, 204 
4659 : 202, 22 4, 253, 208, 24 8, 238, 144 
4 665 : 100, 005, 07 6, 116,018, 146,006 
4671 : 07 6, 069, 086, 069, 07 6, 032, 215 
4 677 : 067, 07 9, 077, 080, 07 6, 069, 005 
4683 084, 069, 173, 141,002,201,233 

4 689 : 001, 24 0, 24 9, 07 6,000,016, 151 
4695 : 169, 14 6, 032, 210, 255, 032, 163 
4701 : 141,018,234,234,234,234, 164 
4707 : 234, 234, 234, 162,000,138,077 
4713 : 157, 004, 208, 232, 224, Oli, 173 
4719 : 208, 24 8, 07 6, 139,008,169, 191 
4725 : 255, 141, 059, 003, 032, 122,217 
4731 : 016, 164, 003, 096, 173, 027, 090 
4737 :212, 041, 001, 024, 105,061,061 
4743 : 153, 24 8, 007, 07 6, 000, 015, 122 
474 9 : 162,000, 189, 155,018, 157,054 
4755 : 000, 128, 232, 224, 010, 208, 181 
47 61 : 245, 096, 013, 008, 013, 008, 024 
47 67 : 195, 194,205, 056,04 8,000, 089 
4773 : 000, 000,000, 000, 000,000, 165 



di K. Marineau 

trad. e adatt. di L. Pr lotto 


Ecco un modo semplice e rapido 
per generare fogli stampati con- 
tenenti problemi aritmetici per I 
bambini, con ogni foglio diverso 
dai precedenti. E* richiesto l'uti- 
lizzo di una stampante. 

Esistono tanti e diversi metodi per inse- 
gnare l'aritmetica ai bambini: uno di que- 
sti è utilizzare una forma a "foglio elettro- 
nico" generata dal computer. Math 
Worksheet crea per prima cosa 100 di- 
versi problemi aritmetici che utilizzano i 
numeri da 0 a 9, li mescola con un pro- 


cedimento casuale e quindi stampa un 
foglio contenente dieci righe di dieci pro- 
blemi ciascuna. 

Math Worksheet può produrre problemi 
aritmetici relativi a sottrazioni, addizioni 
e moltiplicazioni: il foglio delle sottrazio- 
ni consiste di 50 problemi, ognuno dei 
quali compare due volte (ciò perchè il 
programma non permette problemi di sot- 
trazione che conducano a risultati nega- 
tivi). 

Il foglio viene stampato (tranne che con 
stampanti MPS 802 e similari) con carat- 
teri in doppia grandezza, al fine di ren- 
derne più agevole la lettura da parte dei 
bambini più piccoli. 

L'utilizzo del programma è estremamen- 
te semplice: viene inizialmente presen- 
tata l'opportunità di scegliere tra proble- 


mi di sottrazione, addizione o moltiplica- 
zione premendo il tasto corrispondente 
(S, A oppure M). Dopo questa selezio- 
ne, lo schermo mostrerà il processo di 
generazione dei problemi mano a mano 
che esso procede; al suo termine, vi ver- 
rà richiesto di posizionare la carta nella 
stampante in modo che la testina di 
stampa si trovi di circa mezzo centime- 
tro sotto la perforazione tra i fogli, e di 
premere un tasto per iniziare a stam- 
pare. 

La stampa può essere interrotta tenen- 
do premuto il tasto Q. 

Se possedete un CI 28, la linea 40 va 
modificata nel modo seguente: 

40 POKE7, R : POKE8 , C : POKE9, 
0:SYS65520: RETURN 
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Math Worksheet 


10 

REM ** MATH WORKSHEET ** 

: rem 

211 

20 

POKE 53280, 0:POKE 53281,0 -.GOTO 50 




: rem 

143 

30 

REM ** POSIZIONE CURSORE ** 

: rem 

210 

40 

POKE 781,R:POKE 782,C:POKE 

783, 0 : SYS 6 


5520: RETURN 

; rem 

230 

50 

PRINT" {CLR} " :F$="WORKSHEET" 

• « 

o 

1! 

co 




: rem 

156 


60 R=2 : GOSUB 40 :PRINT" {RVS }{WHT}S {YEL} 

{ OFF } OTTRAZ IONE M F$ :rem 99 

70 R=4: GOSUB 40 :PRINT" {RVS} {WHT}A{YEL} 

{OFF}DDIZIONE "F$ : rem 155 

80 R= 6 : GOSUB 40 :PRINT" {RVS} {WHT}M{YEL} 

{OFFJOLTIPLICAZIONE "F$ : rem 122 

90 PRINT'M 2 GIU'H 2 SPAZI}PREMI {RVS} 

{ WHT } IL TASTO { YEL }{ OFF) DESIDERATO" 

: rem 3 6 

100 GET K$ : IF K$="S" THEN S$="-":GOTO 150 

: rem 7 3 

110 IF K$="A" THEN S$="+":GOTO 150 

:rem 173 

120 IF K$="M" THEN S$="X” .-GOTO 150 

: rem 231 

130 GOTO 100 :rem 94 

150 DIM A$ (100) ,P% (100) :CR$=CHR$ (13) : J=0 : 

Z=0 :rem 18 

170 PRINT" {CLR} "SPC (13) " {RVS ) MATH WORKSH 
EET " : rem 211 

180 R=2:C=12: GOSUB 40 : PRINT" {RVS } CREAZIO 
NE PROBLEMI { 2 GIU'} {YEL}" : rem 108 

190 REM ** CREA 100 STRINGHE A$(0)-A$(99) 
** :rem 113 

200 FOR 1*0 TO 9 :N$ (I) =RIGHT$ (STR$ (I) , 1) : 



NEXT I 

: rem 

87 

210 

1*0 

: rem 

73 

220 

FOR K=0 TO 9: FOR L=0 TO 9 

: rem 

197 

240 

IF S$="-" AND VAL {N$ (K) ) < 

VAL (N$ (L) ) 


THEN A$(I)=N$(L)+N$(K) :GOTO 260 




: rem 

156 

250 

A$ (I) = N$(K)+N$(L) 

: rem 

27 

260 

PRINT" "A$(I)" "; : 1=1+1 :NEXT L,K 




: rem 

136 

300 

R-2:C=11: GOSUB 40 : PRINT" {RVS } DISPOSI 


ZIONE PROBLEMI {WHT}{ 2 GIU'}" 




: rem 

204 

330 

IF J>99 THEN 490 

: rem 

235 

340 

X=INT (RND (0) *99) : IF J=0 THEN P% ( J) 

=X : 


GOSUB 470 :J=J+1: GOTO 340 

: rem 

131 

360 

1=0 

: rem 

79 

370 

IF P%(I)=X THEN 420 

: rem 

146 

380 

1=1+1 

: rem 

198 

390 

IF I=J THEN P% (J)=X:GOSUB 

470: J=J+1:G 


OTO 330 

: rem 

148 

400 

GOTO 370 

: rem 

103 

410 

REM ** TROVA PUNTATORE ** 

: rem 

111 

420 

1=0 

:rem 

76 

430 

IF P%(I)=Z THEN Z=Z+1 :GOTO 

420 




: rem 

81 

440 

1=1 + 1 

: rem 

195 

450 

IF I=J THEN P% (J)=Z:GOSUB 

470: J=J+1:G 


OTO 330 

: rem 

147 

460 

GOTO 430 

; rem 

106 


470 PRINT" "A$ (P% ( J) ) " RETURN : rem 203 

480 REM ** STAMPA IL WORKSHEET ** 

:rem 63 

490 R=16 :C=3 : GOSUB 40 :PRINT" {YELJPOSIZION 
A LA TESTINA A MEZZO CM." : rem 60 

500 R=17:C=8: GOSUB 40 :PRINT"SOTTO LA PERF 
ORAZIONE." : rem 143 

510 R=18 :C=3: GOSUB 40 :PRINT"TIENI PREMUTO 
{RVS} {WHT}Q{OFF} {YEL} PER USCIRE DAL 
LA STAMPA" : rem 183 

520 R=20:C=8:GOSUB 40 :PRINT"PREMI {RVS} 

{ WHT } UN TASTO {YEL} {OFF} PER INIZIARE 
" : rem 215 

530 GET K$ : IF K$="" THEN 530 :rem 103 

540 OPEN 4,4 :rem 95 

550 PRINT#4,CHR$ (14) :rem 97 

560 PRINT# 4, " { 13 SPAZI }MATH WORKSHEET" :P 
RINT#4, :PRINT#4, : rem 105 

570 PRINT#4, "NOME [< 30 @>] " :PRINT#4, 

: rem 161 

580 FOR 1=0 TO 90 STEP 10 :rem 227 

590 FOR J=I TO 9+1 :PRINT#4, " { 2 SPAZI }";L 
EFT$ (A$ (P% ( J) ) , 1) " " ; : NEXT J:PRINT#4, 
CR$; : rem 177 

600 FOR J=I TO 9+1 :PRINT#4, " "S$;RIGHT$(A 
$ (P% (J) ) , 1) " " ; : NEXT J: PRINT# 4, CR$; 

:rem 115 

610 FOR J=I TO 9+1 :PRINT#4, " { 2 SPAZI} 

[<T>] " ; : NEXT J : rem 205 

620 FOR L=1 TO 4 : PRINT# 4, : NEXT L:rem 31 
630 GET K$ : IF K$=:"Q" THEN CLR: GOTO 50 




: rem 

218 

640 

NEXT I 

: rem 

34 

650 

CLOSE 4 

: rem 

69 

660 

R=20 :C=5 : GOSUB : 40 : PRINT 

"PREMI {RVS} 


{WHT) R {OFF) {YEL} PER 

AVERE UN ALTRO 


FOGLIO" 

: rem 

52 

670 

R=21:C=5: GOSUB 40: PRINT 

"PREMI {RVS} 


{WHT} Q {OFF} {YEL} PER 

FINIRE" 




: rem 

96 

680 

GET K$ : IF K$="R" THEN CLR:GOTO 50 




: rem 

224 

690 

IF K$="Q" THEN END 

: rem 

117 

700 

GOTO 680 

: rem 

110 
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di K. Mykytyn e M. Tuttle 

trad. e adatt. di E. Stefani 


Riflessi rapidi sono i requisiti 
fondamentali -in questo diverten- 
te gioco per due giocatori. Sono 
richiesti due joystick. 

Il campo di gioco è coperto da un gran 
numero di piccole barrette bianche, gli 
"shifter”, che sono in grado di modifica- 


re la direzione del moto di un disco attra- 
verso lo schermo. Scopo del gioco è cer- 
care di fare in modo che il disco non en- 
tri nelle proprie zone-punteggio, mentre 
si cerca di inserirlo in quelle dell'avver- 
sario. 

Dopo aver selezionato il livello di gioco 
(1 difficile, 3 facile) il disco apparirà ai 
centro del campo di gioco, dotato di un 
movimento in direzione casuale. 

La direzione verrà mantenuta fino a che 
il disco non entra in contatto con uno 
"shifter”, nel qual caso esso muterà la 


propria direzione in funzione dell’inclina- 
zione dello "shifter" stesso: se quest’ul- 
timo è diagonale, la nuova direzione del 
disco sarà inclinata di 90 gradi rispetto 
alla precedente, mentre se lo "shifter" è 
perpendicolare alla direzione del disco, 
il senso del suo moto verrà invertito sen- 
za variazioni della direzione. 

a 

Collisioni con "shifter" paralleli alla dire- 
zione del moto del disco non hanno inve- 
ce alcuna influenza sul moto stesso. 

Il primo giocatore difende le parti vertica- 
li dello schermo, e controlla un "raggio” 
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FINAL CARTRIDGE 


VOICEMASTER 


Il primo sistema operativo esterno 
per Commodore 64 


Nel 1 985 ha vinto il premio Oskar 
per la migliore utility dell’anno. 
Nel 1986 supera se stessa e si 
impone come la cartuccia più 
completa in circolazione. 

Vero e proprio sistema operati- 
vo esterno (32K di ROM) non 
occupa neppure un byte di me- 
moria e fa compiere un bel salto 
di qualità al tuo 64. 

Turbodisco - 6 volte più veloce 
in lettura, 8 volte più veloce in 
scrittura. 

Turbonastro - 10 volte più velo- 
ce, anche con i files. Usa i norma- 
li comandi Commodore ed è 
compatibile con il turbo stan- 
dard. 

Freeze Frame - Permette di con- 
gelare in memoria praticamente 
tutti i programmi per un back-up 
totale e automatico su disco/ 
cassetta e per la riproduzione su 
carta delle schermate in Hi-Res. 
Pagina piena con 12 gradazioni 
di grigio. In modalità training di- 
sabilita il riconoscimento della 
collisione fra sprites e vi garanti- 
sce... l'immortalità. 

Interfaccia avanzata Centro- 
nics - Permette di stampare tutti 
i simboli grafici e i codici di con- 
trollo Commodore su qualsiasi 
stampante standard Centronics. 
Molto importante per i listati. 

24K di RAM in più per i program- 
mi Basic - Due nuovi comandi, 
“Memory read” e “Memory wri- 



te”, possono spostare 192 bytes 
con la velocità del Linguaggio 
Macchina ovunque nell’ambito 
dei 64K di RAM dei Commodore 
64. Utilizzabili con stringhe e va- 
riabili. 

Comandi Basic 4.0 - Come 
Dload, Dsave, Dappend, Cata- 
log, cc. 

Basic Toolkit - Con Auto, Re- 
num (compresi Goto e Gosub), 
Find, Help, Old, ecc. 

Tasti funzione preprogrammati 

- Run, Load, Save, Catalog, co- 
mandi per gestione disco, List 
(rimuove tutte le eventuali prote- 
zioni). 

Nuove funzioni da tastiera - Per 

cancellare una parte di una riga, 
fermare e riprendere un listato, 
spostare il cursore nell’angolo in 
basso a sinistra. Con il comando 
Type potete usare la stampante 
come una macchina da scrivere. 
Monitor L/M esteso - Con as- 
sembler e disassembler. Non ri- 
siede in memoria. 

Pulsante di reset - Sempre mol- 
to utile. 

Interruttore On/Off - Per evitarvi 
il fastidio di togliere e rimettere 
la cartuccia. 



EPSON 


P40 


ECCEZIONALE! 


Stampante EPSON P40 
all’incredibile prezzo 
di lire 230.000. 


E per gli amici del Final Cartrid- 
ge una ventata di follia: altre 
71.000 lire di sconto (159.000 
anziché 230.000) solo se acqui- 
stata insieme alla cartuccia. 


• EPSON P40 portatile con ali- 
mentazione a batteria e a rete 

• Stampa a matrice di punti 


• Grafica 

• 80 colonne in compresso (lar- 
ghezza della carta 112 mm) 

• Collegabile al C64 tramite il 
cavo Centronics fornito in op- 
zione con The Final Cartridge 


Processore vocale e musicale per: 


Commodore 64 e 1 28 (in modo 
64), Atari 800/800XL/65XE/ 
130XE Apple ll+/lle/llc (il 11+ ri- 
chiede 64K e paddle port adap- 
ter) 

Nuova versione di software con 
Editor per modificare le caratte- 
ristiche dei suoni da riprodurre 
per una fedeltà ancora migliore. 
Nuovo prezzo ribassato a 
199.000 lire. E per ll+/lle puoi 
avere in opzione a 89.000 lire la 
scheda Soundmaster, che con- 
sente all’Apple le stesse presta- 
zioni musicali di Commodore e 
Atari. 


Programmi parlanti? 


I tuoi programmi possono parla- 
re con la tua voce, in qualsiasi 
lingua e con qualsiasi accento. 
Usa il comando LEARN e paria 
nel microfono; con il comando 
SPEAK il computer restituirà 
all’altoparlante quello che hai 
detto. 

II manuale riporta numerosi 
esempi di come aggiungere la 
voce ai programmi. 


Gli ordini si danno 
a voce! 


Ti piacerebbe dare ordini al com- 
puter con la tua voce? 
Semplicissimo! Con il comando 
TRAIN gli comunichi le parole o 
le frasi da riconoscere e con il 


comando RECOGNISE ottieni 
che le capisca e si comporti di 
conseguenza. 


Un po’ di musica per 
rilassarti 


Con il software del Voicemaster 
puoi comporre e suonare sem- 
plicemente canticchiando o fi- 
schiettando. Non importa se non 
sai leggere la musica. 

La tua voce o il tono del fischio 
scriveranno le note per te! 
Mentre canti o fischi le note ap- 
paiono sullo schermo: le puoi 
correggere, riascoltare e, quan- 
do sei soddisfatto, puoi stampa- 
re lo spartito. In modo perfor- 
mance puoi cambiare le ottave, 
le chiavi o aggiungere accordi. 

Questo prodotto, a questo prez- 
zo, può confrontarsi unicamente 
con apparecchiature di costo 
pari a qualche milione. Vuoi una 
prova? Richiedici a sole 29.000 
lire il dischetto parlante dimo- 
strativo che non necessita di 
hardware aggiuntivo e contiene 
alcuni vocabolari generici utiliz- 
zabili nei tuoi programmi. Insie- 
me al dischetto riceverai un ma- 
nuale esplicativo in Italiano, utile 
anche come introduzione al Voi- 
cemaster 

Il prezzo pagato per il dischetto 
dimostrativo ti sarà interamen- 
te rimborsato nel caso di suc- 
cessivo acquisto del Voicema- 
ster. 









TXP-KXX) 


PREZZO IRRIPETIBILE 
Standard Centronics per 
MSX/Apple/Amstrad/IBM 
PC 399.000 (listino 500.000) 
Interfaccia diretta Commo- 
dore/Atari 449.000 (listino 
570.000) 

Questa stampante universale, 
letter quality, può essere colle- 
gata a qualsiasi computer dota- 
to di interfaccia standard Centro- 
nics tramite apposito cavo (non 
compreso). 

Per gli utenti Commodore/Atari 
la TXP-1 000 viene già fornita con 
interfaccia diretta e cavo di col- 
legamento. Non è richiesto 





hardware aggiuntivo. Il prezzo di 
lancio sfida le leggi mercato. Fin- 
ché dura. 

Testina di stampa a 16 aghi. Car- 
rello standard 80 colonne. 
►Silenziosissima. 

►Foglio singolo e modulo conti- 
nuo. Carta normale o termica. 

► Due velocità: 50 o 25 caratteri/ 
secondo. 

Qualità di stampa controllabile 
tramite il cursore “Density”. 


LIGHT PEN 

MKROSCRIBE 


Costruita in acciaio inossidabile, 
Microscribe è in grado di pilotare 
ih maniera molto precisa gli spo- 
stamenti del cursore anche re- 
stando a 5 cm di distanza dallo 
schermo. 

Il software per disegnare in alta 
risoluzione si basa sul principio 
del menù ad icone e permette, 
tra l’altro, il tracciamento a mano 
libera, lo zoom, la cancellazione, 
il salvataggio delle immagini su 
disco o cassetta, l’uso della ta- 
stiera per introdurre testo. Tutto 
normale, a parte la qualità. 
Assolutamente eccezionali so- 
no invece altri due programmi in 



dotazione: una calcolatrice su 
schermo per fare direttamente 
tutti i vostri conti e un sistema 
per utilizzare la light pen dentro i 
programmi BASIC. 

Il prezzo? Solo 95.000 per la 
versione su cassetta e 98.000 
per il floppy. 


MEGAMOUSE 


L’unico mouse degno 
del Commodore 

Il software è completamente 
guidato tramite icone, ossia sim- 
boli grafici racchiusi in un qua- 


r V ì l i ì 


gap 



drato a rappresentare le diverse 
funzioni. 

Per selezionare una funzione ba- 
sta far scivolare il mouse sul pia- 
no della scrivania fino a portare il 
cursore sopra la icona prescelta 
e quindi premere brevemente il 
pulsante adatto. 

L’uso di Megamouse risulta tal- 
mente immediato e naturale da 
non poterne fare a meno: com- 
puter art, CAD, disegno indu- 
striale, grafici di ogni tipo sono 
solo alcune delle applicazioni 
possibili. E i risultati faranno im- 
pallidire i fratellini maggiori a 32 
bit. 



Creata da un team di designers 
in collaborazione con medici e fi- 
sioterapisti e realizzata in legno 
di rovere, OAK distribuisce il pe- 
so del corpo in maniera bilan- 
ciata rispetto al baricentro, ri- 
sultando estremamente confor- 


OAK 

Fa bene sedersi bene 

tevole. La maggior parte del cari- 
co è sopportata dai femori e la 

colonna vertebrale rimane in 
posizione corretta. Oltre a ciò, 
OAK è molto più bella di una nor- 
male sedia e il suo prezzo è sba- 
lorditivo: solo 119.000 lire. E se 
te ne servono due risparmi 
24.000 lire: 214.000 lire invece 
di 238.000. 


Non perdere tempo. 
Ritaglia e spedisci 
oggi stesso a: 

Jackson S.p.A. 

Via Rosellini, 12 
20124 MILANO 



INVIATEMI (barrare le caselle opportune) 
Voicemaster (specificare computer 


-) 


Dischetto parlante (specificare computer 

Soundmaster per Apple !H-/lie 

The Final Cartridge 

Cavo parallelo Centronics (opzionale) 

Stampante EPSON P40 (Centronics) 

EPSON P40 + Cavo parallelo + Final Cartridge 

I Stampante G.E. TXP-1 000 
□ L. 399.000 (Centronics) 


□ L. 199.000 

□ L. 29.000 

□ L. 89.000 

□ L. 1 47.000 

□ L. 36.000 

□ L. 230.000 

□ L. 342.000 


□ L. 449.000 (Commodore/Atari) 
Lighpen Microscribe □ L. 95.000 (cassetta) □ L. 98.000 (floppy) 
Sedia OAK □ L. 119.000 (singola) □ L. 214.000 (coppia) 

| Megamouse □ L. 125.000 

I Tutti i prezzi comprendono IVA e spese di spedizione in contrassegno postale 


Nome /Cognome 



Indirizzo 


CAP/Città 

Cod. Fise, (solo se si desidera fattura) 

Data 

Firma 

. 




I 

I 

La spedizione sarà effettuata direttamente daH’importatore MICROSTAR s.r.l. 
I Solo per informazioni tecniche: (02) 6597693 
I Tutto il materiale è coperto da 12 mesi di garanzia. 

I 




rosso verticale. Muovendo il joystick 
verso destra o verso sinistra, si otterrà 
uno spostamento del raggio in direzione 
orizzontale, mentre spostando il joy- 
stick verso Talto o verso il basso tutti 
gli "shifter" compresi nel raggio verticale 
verranno traslati. Gli "shifter" non subi- 
ranno alcuna modifica, se il disco si tro- 
va all'interno del raggio. 

Il secondo giocatore difende le parti oriz- 
zontali dello schermo, e controlla un rag- 


gio orizzontale di colore giallo. Il movi- 
mento del joystick verso l'alto o verso il 
basso sposta il raggio verticalmente, 
mentre il movimento verso destra o ver- 
so sinistra provoca la traslazione di tutti 
gli "shifter" compresi entro il raggio oriz- 
zontale. Anche qui gli "shifter" non subi- 
scono modifiche di posizione, se il di- 
sco si trova all'interno del raggio giallo. 
Ogni volta che il disco entra nella parte 
alta o bassa del campo di gioco il primo 


giocatore guadagna un punto, e analo- 
gamente il secondo giocatore guadagna 
un punto, se il disco penetra nella parte 
destra o sinistra del campo. 

Tutte le volte in cui uno dei giocatori gua- 
dagna un punto ha termine il round, men- 
tre dopo cinque round avrà termine la 
partita. 

Buon divertimento! 


Shifter 

10 POKE56, 60 :POKE55, 0 :CLR:KM=15360 :RO=l :P 
RINTCHR$ (8) :DIMZ$ (23) : rem 199 

20 H=54272 :FORI=HTOH+24 :POKEI, 0 :NEXT:FORI 
=0TOl 5 : POKEH+2 4,1: NEXT : POKEH+5 ,200 

: rem 188 

30 POKEH+6, 200 : POKEH+4, 17 :rem 157 

40 BC=53280 :BK=53281 : POKEBC, 6 :POKEBK, 6 :PR 
INT" {CLR} { 6 GIU' } {CYN} "SPC (6) ; 

: rem 3 4 

50 PRINT" [<D>] { RVS } [<D>] [<F>] (OFF) [<F>] 

{ 5 SPAZI) {RVS} [<F>] [<D>] {OFF} 

{ 5 SPAZI} [<C>] {RVS} [<F>] [<D>] {OFF} 
[<V>] { 4 SPAZI} {RVS} [<K>] [<D>] [<F>] 
{OFF} [<F>] "SPC (12) " [<C>] {RVS} [<C>] 

{OFF } [<I>] { 6 SPAZI} {RVS} [<K>] {OFF} 
[<K>]"; :rem 92 

60 PRINTSPC ( 6 ) " { RVS } [<K>] {OFF} [<K>] 

{ 5 SPAZI} {RVS} [<K>] [<C>] [<V>] {OFF} 
[<V>] "SPC (12) " [<D>] [<F>] {RVS} [<K>] 

{OFF } [<K>] { 5 SPAZI) {RVS} [<K>] {OFF} 
[<K>] { 6 SPAZI} {RVS} [<K>] {OFF} [<K>] 

{ 5 SPAZI) {RVS} [<K>] [<D>] [<C>] {OFF}"; 

: rem 230 

70 PRINTSPC (14) "{RVS} [< 2 I>] {OFF} 

{ 6 SPAZI} {RVS} [< 2 I>] {OFF } 

{ 6 SPAZI} [<C>] [<V>] { 5 SPAZI} [<C>] 

[<V>] [<C>] t<V>] { 3 SU} "SPC (16); 

* 

:rem 158 

80 PRINT" {RVS} [<K>] {OFF} [<K>] {RVS} [<K>] 
{OFF} [<K>] "SPC (4) " {RVS } [<K>] [<D>] [<I>] 
{OFF} [<V>] "SPC (4) "{RVS} [<K>] [<D>] [<I>] 
{OFF} [<V>] "SPC (20) " {RVS} [<K>] [<C>] 
t<V>] {OFF} [<K>] "SPC (4) " {RVS} [<K>] [<C>] 
{OFF } [<F>] " ; : rem 232 

90 PRINTSPC (5) "{RVS} [<K>] [<C>] {OFF} [<F>] " 
SPC (21) "{RVS} [<K>] {OFF} [<K>] {RVS} [<K>] 
{OFF} [<K>] "SPC (4) " {RVS } [<K>] {OFF} [<K>] 
"SPC (6) " {RVS} [<K>] {OFF} [<K>] "SPC(22) " 
[<C>] [<V>] [<C>] (<V>] "; : rem 70 

100 PRINTSPC (4) " [<C>] [<V>] "SPC (6) " [<C>] 

{RVS } [< 2 I>] {OFF} [<V>] { 7 GIU'}":PRI 
NTSPC ( 14) "{WHT} LIVELLO? { 3 SPAZI}" 

: rem 211 

110 PRINTSPC (16) "{GIU' }1{ 2 SPAZI }2 
{ 2 SPAZI ) 3 { 2 GIU'H 9 SIN}VEL. 

{ 2 SPAZI} LENTO" : rem 230 

120 KT$=" " :GETKT$ : IFKT$<" l"ORKT$>"3"THENl 
2 0 : rem 204 

130 KT=VAL (KT$) +2 :POKE850, KT :rem 149 

140 PRINTSPC (12) " { 5 SU}DISEGNO CAMPO..." 


: PRINT" {GIU' } "SPC (14) "ATTENDI. . . 
{GIU'}" :rem 120 

150 PRINTSPC (14) "{ 11 SPAZI }":A$(1)=" 

{ 1 SH * }" :A$ (2) =" { 1 SH B}":A$(3)=" 

{ 1 SH N } " : A$ ( 4 ) =" { 1 SH M)":A$(5)=" 

" ; 8 4 

160 B$=" {RVS } { 25 SPAZI }-":C$=" {RVS} {OFF} 
":E$="{RVS} {CYN} { 7 SPAZI }" :D$=E$+" " 
:GOSUB570 :rem 56 

170 F0RI=1T023 :MT$=MT$+" {GIU ' } {SIN}"+C$:N 
EXT :MT$=MT$+" {HOME}" : rem 234 

180 GOSUB420: PRINT "{CLR}"; : POKEBC, 3 : POKEB 
K, 0 :rem 39 

190 PRINTD$" {BLU} "B$" {RVS } {CYN} 

{ 6 SPAZI } " :POKE1063, 160 :POKE55335, 3 

: rem 1 6 

200 F0RI=1T023 :PRINTD$" {BLU} "C$" [<8>] "Z$ ( 
I) " {BLU} "C$E$; :NEXT : PRINTD$" {BLU} "B$" 
{RVS} {CYN} { 6 SPAZI} {HOME}" : rem 15 

210 POKE2023, 160 :POKE56295, 3 :POKEBK, 0 

:rem 113 

220 PRINT" {HOME} { 3 GIU' } {RVS } {CYN} {YEL} 
PUNTI { 2 GIU'H 4 SIN} {CYN} "SI: PRINT" 

{ 4 GIU'} {RVS} ROUND { 2 GIU'} 

{ 4 SIN} "RO : rem 99 

230 PRINT" { 4 GIU' } {RVS} {CYN} [<3>] PUNTI 
{ 2 GIU ' } { 4 SIN} {CYN} "S2 : rem 59 

240 PRINT" {HOME} { 6 GIU' } {RVS } "SPC (36) "S 
{ 2 GIU' }H{ 2 GIU ' } { 2 SINJI 
{ 2 GIU'H 2 SIN}F{ 2'GIU'}T 
{ 2 GIU' }E { 2 GIU'H 2 SIN}R" 

: rem 101 

250 IFCK=1THENCK=0 :S1=0 : S2=0 :RO=l :KC=0 :GO 
TO31.0 :rem 40 

260 POKE831, RND (0) *4 : IFKCTHEN280 : rem 114 
270 GOSUB520 :rem 176 

280 SYS 153 60 :KC=1 : SP=PEEK (195) +256*PEEK(1 
96) :GOSUB430 :POKESP, 160 :rem 37 

290 RO=RO+l : IFS1=50RS2=5THENCK=1 :RO=RO-l 

: rem 1 5 

300 GOTO220 :rem 96 

310 PRINT" {HOME} { 9 GIU' } {GRN}"SPC (16) "GA 
ME OVER": PRINT" { 3 GIU' } "SPC (12) "PREM 
I FUOCO... { 2 SPAZI}" : rem 6 

320 IF (PEEK (56320) ANDPEEK (56321) ) AND16THE 
N320 :rem 51 

330 PRINT" {HOME}" :F0RI=1T023 :PRINTD$" 

{BLU} "C$" [<8>] "Z$ (I) " {BLU}"C$E$; :NEXT 

: rem 4 9 

340 PRINTD$" { BLU } "B$" {RVS } {CYN} 
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{ 6 SPAZI} {HOME} { 10 GIU ' } " : POKEBK, 15 

: rem 143 

350 PRINTSPC (15) " {BLK } LIVELLO? { 3 SPAZI} 

" : PRINTSPC (18) " (1-3) " : rem 121 

360 KT$="" :GETKT$: IFKT$<"l"ORKT$>"3"THEN3 
6 0 : rem 216 

370 KT=VAL(KT$)+2:POKE850,KT -.rem 155 
380 PRINT" { 4 SU} "SPC (13) " {BLKJDISEGNO CA 
MPO { 2 SPAZI } " : PRINTSPC ( 18 ) " 

{ 5 SPAZI}” : rem 67 

390 F0RI=1T023 : Z$ (I) ="" :NEXT : GOSUB420 :PRI 
NT" {HOME}”; :GOTO190 : rem 68 

400 X=INT (2 8*RND (1) ) +1 : IFX>4THENX=5 

: rem 7 1 

410 RETURN s rem 117 

420 F0RZ=1T023 :F0RI=1T023 :GOSUB400 ;Z$ (Z) = 
Z$(Z)+A$(X) : NEXT I, Z : RETURN : rem 223 
430 IFSP<1063ORSP>1984THEN470 : rem 241 

440 S1=S1+1 :TE=7 :GOSUB540 :F0RQ=1T08 :POKE6 
4 6 , TE ; PRINT" { HOME } " SPC ( 9 ) MT $ " { HOME } "S 
PC (33) MT$ : rem 104 

450 IFTE=7THENTE=6 :FORE=lTO130 :NEXTE, Q : RE 
TURN : rem 208 

4 60 TE=7 : NEXTQ: RETURN : rem 139 

470 S2=S2+1:TE=2 :GOSUB540 :F0RQ=1T08 :POKE6 
4 6 , TEMP : rem 24 9 

480 PRINT" { HOME } "SPC ( 8 ) B$ : PRINT" { HOME } 

{ 24 GIU* } "SPC (8) B$" { HOME } " : rem 55 
4 90 F0RE=1T075 :NEXTE : rem 4 

500 IFTE=2THENTE=6 : NEXTQ : RETURN : rem 75 
510 TE=2 : NEXTQ : RETURN ; rem 130 

520 FORI=10TO255STEP20 : FORL=255TOlOSTEP-5 
0 : POKEH+ 1,-1: POKEH , L : NEXT : NEXT 

: rem 247 

530 POKEH, 0:POKEH+1, 0 : RETURN : rem 238 
540 FORI=255TO120STEP-30 :FORL=10TO255STEP 


1 0 : POKEH+1, L : POKEH , I : NEXT : NEXT 





: rem 

40 

550 

GOTO530 

: rem 

107 

560 

POKE64 6, 6 : RETURN 

: rem 

230 

570 

READA 

. : IFA=2 5 6THENRETURN 

: rem 

236 

580 

POKEKM, A : KM=KM+1 : GOTO570 

: rem 

227 

590 

DATA 

32, 42, 60,32, 123, 60 

: rem 

38 

600 

DATA 

32,175,60,32,54,61 

: rem 

41 

610 

DATA 

165, 108,32,23, 62,165 

: rem 

144 

620 

DATA 

109,32,75,62,206,65 

: rem 

100 

630 

DATA 

3,208,9,173,66,3 

: rem 

207 

640 

DATA 

141,65,3,32,155,62 

: rem 

4 4 

650 

DATA 

32, 12, 62,76, 6, 60 

: rem 

202 

660 

DATA 

173,27,3,201,243,240 

: rem 

139 

670 

DATA 

23,169,49, 133, 100,169 

: rem 

205 

680 

DATA 

12,133,101, 169,0, 133 

: rem 

135 

690 

DATA 

98,169,252,133,99,169 

: rem 

232 

700 

DATA 

1, 141, 69, 3,208,21 

: rem 

243 

710 

DATA 

169,49, 133, 100,169, 4 

: rem 

151 

720 

DATA 

133,101,169,0,133,98 

: rem 

144 

730 

DATA 

169,212,133,99,169,0 

: rem 

158 

740 

DATA 

141,69,3,173,69,3 

: rem 

6 

750 

DATA 

10,10,24, 105, 3, 170 

: rem 

27 

760 

DATA 

160,3, 189, 115, 60,153 

: rem 

149 

770 

DATA 

106,0,202, 136, 16,246 

: rem 

140 

780 

DATA 

96,15,5,7,2,81 

: rem 

113 

790 

DATA 

101,103,66,165,100,133 

: rem 

236 

800 

DATA 

3,133, 5,24,105,195 

: rem 

40 


810 

DATA 

133,195, 165, 101, 133, 4 

rem 

190 

820 

DATA 

133, 6,105, 1, 133, 196 

rem 

91 

830 

DATA 

169,0,141,60,3,141 

rem 

38 

840 

DATA 

61,3,169,32,141,64 

rem 

49 

850 

DATA 

3,173,82,3,141,65 

rem 

255 

860 

DATA 

3, 141, 66,3, 169, 11 

rem 

254 

870 

DATA 

141,67,3,141,68,3 

rem 

2 

880 

DATA 

96,162,0,32,244,61 

rem 

52 

890 

DATA 

74,176,29,173,60,3 

rem 

63 

900 

DATA ; 

240,121,206, 60,3, 165 

rem 

134 

910 

DATA 

106,32,23,62,165,3 

rem 

40 

920 

DATA 

56,233, 40, 133, 3, 165 

rem 

94 

930 

DATA 

4,233,0, 133, 4,76 

rem 

198 

940 

DATA 

53, 61,74, 176,31, 173 

rem 

106 

950 

DATA 

60,3,201,22,240, 87 

rem 

41 

960 

DATA 

165, 106,32,23, 62,238 

rem 

151 

970 

DATA 

60,3, 165,3,24, 105 

rem 

250 

980 

DATA 

40, 133, 3, 165, 4,105 

rem 

43 

990 

DATA 

0,133,4,76,53,61 

rem 

207 

1000 

DATA 

174,60,3,236,67,3 

rem 

39 

1010 

DATA 

240,55,74,176,27,160 

rem 

193 

1020 

DATA 

0, 177, 3, 72, 136,200 

rem 

80 

1030 

DATA 

200,192,23,240,8,177 

rem 

186 

1040 

DATA 

3,136,145,3,76,7 

rem 

249 

1050 

DATA 

61,104,136,145,3,76 

rem 

140 

1060 

DATA 

53, 61,74, 176,22, 160 

rem 

144 

1070 

DATA 

22,177,3,72,200,136 

rem 

137 

1080 

DATA 

136,48,8,177,3,200 

rem 

97 

1090 

DATA 

145,3,76,37, 61, 104 

rem 

96 

1100 

DATA 

200, 14Ì5, 3, 96, 162, 1 

rem 

80 

1110 

DATA 

32,244,61,74,176,55 

rem 

146 

1120 

DATA 

174,61,3,236,68,3 

rem 

44 

1130 

DATA 

240,44, 160,0,177,5 

rem 

84 

1140 

DATA 

72,165,5,133,252,165 

rem 

194 

1150 

DATA 

6, 133,253, 162,21, 160 

rem 

183 

1160 

DATA 

40,177,252,160,0,145 

rem 

187 

1170 

DATA 

252,165,252,24,105,40 

rem 

237 

1180 

DATA 

133,252,165,253,105,0 

rem 

236 

1190 

DATA 

133,253,202,16,232,104 

rem 

25 

1200 

DATA 

160,0,145,252,76,243 

rem 

185 

1210 

DATA 

61, 74, 176, 60, 174, 61 

rem 

147 

1220 

DATA 

3,236,68,3,240,115 

rem 

87 

1230 

DATA 

165,5,24,105,72,133 

rem 

137 

1240 

DATA 

252, 165, 6, 105,3, 133 

rem 

136 

1250 

DATA 

253,160,40,177,252,72 

rem 

244 

1260 

DATA 

162,21,160,0,177,252 

rem 

186 

1270 

DATA 

160, 40, 145,252, 165,252 

rem 

35 

12 8 0 

DATA 

56,233,40, 133,252,165 

rem 

244 

1290 

DATA 

253,233,0, 133,253,202 

rem 

233 

1300 

DATA 

16,232,104,160,40,145 

rem 

226 

1310 

DATA 

252,76,243,61,74,176 

rem 

202 

1320 

DATA 

29,173,61,3,240,55 

rem 

92 

1330 

DATA 

206,61,3,165,106,32 

rem 

135 

1340 

DATA 

75, 62, 165,5,56,233 

rem 

102 

1350 

DATA 

1,133,5,165,6,233 

rem 

38 

1360 

DATA 

0,133,6,76,243,61 

rem 

42 

1370 

DATA 

74,176,28, 173, 61, 3 

rem 

105 

1380 

DATA 

201,22,240,21,238, 61 

rem 

182 

1390 

DATA 

3,165,106,32,75,62 

rem 

98 

1400 

DATA 

165,5,24,105,1,133 

rem 

80 

1410 

DATA 

5,165,6,105,0,133 

rem 

32 

1420 

DATA 

6,96,173,69,3,208 

rem 

57 

1430 

DATA 

4,189,0,220,96,189 

rem 

105 

1440 

DATA 

10, 62,141,8,255,234 

rem 

139 
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1450 

DATA 

234,234,173,8,255,96 : 

: rem 

208 

14 60 

DATA 

250,253,162,50,160,0 : 

: rem 

183 

1470 

DATA 

136,208,253,202,208,250 





rem 

85 

1480 

DATA 

96,141, 62,3, 165, 3 

rem 

50 

1490 

DATA 

133,247,24,101,98,133 

rem 

248 

1500 

DATA 

252, 165, 4, 133,248,101 

rem 

236 

1510 

DATA 

99, 133,253, 160,22,173 

rem 

246 

1520 

DATA 

62,3, 145,252,177,247 

rem 

200 

1530 

DATA 

201,81,240,13,174,62 

rem 

185 

1540 

DATA 

3,228,106,240,4,9 

rem 

41 

1550 

DATA 

128,208,2,41,127,145 

rem 

193 

1560 

DATA 

247, 136, 16,227, 96, 141 

rem 

0 

1570 

DATA 

62,3,165,5,24,101 

rem 

39 

1580 

DATA 

98,133,252,165, 6, 101 

rem 

201 

1590 

DATA 

99,133,253,162,22,173 

rem 

0 

1600 

DATA 

62,3, 160,0,145,252 

rem 

82 

1610 

DATA 

165,252,56,229,98,133 

rem 

3 

1620 

DATA 

247,165,253,229,99,133 

rem 

56 

1630 

DATA 

248,160,0,177,247,201 

rem 

244 

1640 

DATA 

81,240,13,172,62,3 

rem 

89 

1650 

DATA 

196,106,240,4,9,128 

rem 

151 

1660 

DATA 

208,2,41, 127,160, 0 

rem 

85 

1670 

DATA 

145,247,165,252,24,105 

rem 

' 44 

1680 

DATA 

40,133,252,165,253,105 

rem 

37 

1690 

DATA 

0, 133,253,202, 16, 195 

rem 

193 

1700 

DATA 

96, 173, 64,3,160,0 

rem 

44 

1710 

DATA 

145,195,165,195,24,101 

rem 

43 

1720 

DATA 

98,133,252,165,196,101 

rem 

47 

1730 

DATA 

99, 133,253,165, 106, 145 

rem 

49 

1740 

DATA 

252,173, 63,3, 170,173 

rem 

197 

1750 

DATA 

68,3,24,125,78,63 

rem 

58 

1760 

DATA 

141, 68,3,173, 67, 3 

rem 

54 

1770 

DATA 

24, 125, 82, 63, 141, 67 

rem 

153 

1780 

DATA 

3,173, 63,3, 10, 170 

rem 

41 

1790 

DATA 

165, 195, 24, 125, 62, 63 

rem 

209 

1800 

DATA 

133, 195, 165, 196, 125, 63 

rem 

50 

1810 

DATA 

63, 133, 196, 177, 195, 41 

rem 

3 

1820 

DATA 

127,141,64,3,162,3 

rem 

90 

1830 

DATA 

221,70,63,240,5,202 

rem 

134 

1840 

DATA 

48,35, 16,246, 201, 64 

rem 

151 

1850 

DATA 

208,9, 173, 63, 3, 41 

• 

rem 

51 

1860 

DATA 

1,208,22,240,11,201 

rem 

127 

1870 

DATA 

66,208,7,173, 63,3 

rem 

58 

1880 

DATA 

41, 1,240, 9, 173, 63 

rem 

48 

1890 

DATA 

3, 93,74, 63, 141, 63 

rem 

58 

1900 

DATA 

3,169, 81,145, 195, 165 

rem 

209 

1910 

DATA 

195,24, 101, 98, 133,252 

rem 

249 

1920 

DATA 

165, 196,101, 99, 133,253 

rem 

51 

1930 

DATA 

177,252,41,15,201,6 

rem 

143 

1940 

DATA 

208,13, 165, 106,32,23 

rem 

191 

1950 

DATA 

62,165, 106, 32, 75, 62 

rem 

153 

1960 

DATA 

104, 104, 96, 165, 107, 145 

rem 

45 

1970 

DATA 

252, 96,216,255, 1,0 

rem 

101 

1980 

DATA 

40,0,255,255, 64, 66 

rem 

106 

1990 

DATA 

77,78,2,2,3,1 

rem 

110 

2000 

DATA 

0,1,0, 255, 255, 0 

rem 

177 

2010 

DATA 

1,0,256 

rem 

51 
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Librerie specializzate nella vendita 
di libri di elettronica e informatica 
del Gruppo Editoriale Jackson 


ABRUZZO 

67051 AVEZZANO (AQ) 

Universitaria - Via Vittorio Veneto, 49 - Tel. 0863/37200 

66034 LANCIANO (CH) 

Cipolla - Via 0. Bocache, 6 - Tel. 0872/28147 

65100 PESCARA 

DeH'università - Via Gramsci Angolo via Galilei - Tel. 085/35278 

BASILICATA 

75100 MATERA 

Cifarelli di A. Basile - P.zza Vitt. Veneto, 43/45 - Tel. 0835/212309 

CAMPANIA 

83100 AVELLINO 

Petretta s.r.l. - Corso Vittorio Emanuele, 133 

82100 BENEVENTO 

Nuovo Politecnico - Via Capilongo, 32 

81100 CASERTA 

De Canditiis Bruno - Via Mazzini, 13 

80125 NAPOLI 

C.U.E.N. - P.le Tecchio (Int. Politecnico} 

80134 NAPOLI 

Guida A. s.r.l. - Via Port’alba, 20/3 

80129 NAPOLI 

Guida Libreria Internazionale - Via Merliani, 118 

80125 NAPOLI 

L'ateneo di Sparavigna Annina - Viale Augusto, 168/170 

80134 NAPOLI 

Liguori Commissionaria s.n.c. - Via Mezzocannone, 23 

80129 NAPOLI 

Loffredo Luigi s.n.c. - Via Kerbaker, 19/21 

80138 NAPOLI 

Pisanti Renato s.r.l. - Corso Umberto I, 38/40 

80134 NAPOLI 

Supermarket del fumetto di Siena R. - Via Montesanto 14 

84100 SALERNO 

Internazionale di De Spelladi Rodolfo - Piazza XXIV Maggio 10/11 

84100 SALERNO 

Paoli I lo Rodolfo - via Principati, 46 

EMILIA ROMAGNA 

40129 BOLOGNA 

Bolognina - Vìa Matteotti, 32/A - Tel. 051/35941 1 

40126 BOLOGNA 

Patron - Via Zamboni, 24 - Tel. 051/275735 

40125 BOLOGNA 

Rizzoli - Via Rizzoli, 8 - Tel. 051/223706 

40122 BOLOGNA 

Zanichelli - P.zza Galvani, 14 - Tel. 051/237389 

41012 CARPI (MO) 

Rinascita - P.zza Martiri, 50 - Tel. 059/684515 

47023 CESENA (FO) 

Minerva Gross - P.zza del Popolo, 34 - Tel. 0547/22660 

48018 FAENZA (RA) 

Incontri - Via Naviglio 18/A - Tel. 0546/26893 

44100 FERRARA 

Spazio Libri - Via del Turco - Tel. 0532/47796 

47100 FORLÌ 

Cappelli - C.so Repubblica, 54 - Tel. 0543/32641 

41100 MODENA 

Rinascita - Via C. Battisti, 17 - Tel. 059/218188 

43100 PARMA 

Galleria del libro - P.zza Garibaldi, 23 

48100 RAVENNA 

Rinascita - Via 13 Giugno, 14 - Tel. 0544/34535 

42100 REGGIO EMILIA 

Ariosto - P.zza della Vittoria, 1 - Tel. 0522/30683 

47037 RIMINI (FO) 

Caimi II - Via 22 Giugno, 3 - Tel. 0541/52460 

47037 RIMINI (FO) 

Modena - Via Serpieri, 21 - Tel. 0541/23518 

29100 PIACENZA 

Centro Romagnosi - Via Verdi, 5 - Tel. 0523/385575 

FRIULI VENEZIA GIULIA 

34170 GORIZIA 

Antonini di A. Antonini - Via Mazzini, 16 - Tel. 0481/84522 


33170 PORDENONE 

La Cinzia s.r.l. - Via XXX Aprile - Tel. 0434/24736 

34122 TRIESTE 

Borsatti Libr. Internaz. - Via Dante, 14 * Tel. 040/62164 

34122 TRIESTE 

I. Svevo Libr. Internaz. - C.so Italia, 9 - Tel. 040/60330 

33100 UDINE 

Carducci di Feruglio - P.zza XX Settembre, 16 - Tel. 0432/23786 

33100 UDINE 

Tarantola di Tavoschi - Via V. Veneto, 20 - Tel. 0432/502459 

34074 MONFALCONE (GO) 

Rinascita - Via Verdi, 48 - Tel. 0481/44520 

LAZIO 

03100 FROSINONE 

Bianchini - Corso della Repubblica, 225 - Tel. 0775/854034 

00122 OSTIA 

Munzi Roberto - P.zza Gregorio Ronca, 6/7 - Tel. 06/5600308 

00184 ROMA 

Ala Politecnica - Via Cavour, 239 - Tel. 06/484585 

00172 ROMA 

Arethusa - Viale della Primavera, 91 - Tel . 06/285368 

00185 ROMA 

Calliope - Via S. Croce in Gerusalemme, 89 - Tel. 06/7575558 

00185 ROMA 

Croce Int.le s.a.s. di Croce Walter - Via Solferino, 7 * 

Tel. 06/4953222 

00144 ROMA 

Dei Congressi - Via Civiltà del lavoro, 124 - Tel. 06/5913595 

00184 ROMA 

Esedra - Via Torino, 97 - Tel. 06/461473 

00183 ROMA 

Gabi - Via Gabi, 30/A - Tel. 06/774303 

00184 ROMA 

Ingegneria 2000 - Via della Polveriera, 15 - Tel. 06/4744169 

00192 ROMA 

Maraldi - Via Bastioni Michelangelo, 7/23 - Tel. 06/353539 

00195 ROMA 

Micozzi - Via G. Ferrari, 39 - Tel. 06/354876 

00183 ROMA 

Panella - P.zza Re di Roma, 66 - Tel. 06/778455 

00152 ROMA 

Quattro venti di Fioravanti - V.le dei 4 venti, 28 - Tel. 06/5800954 

00187 ROMA 

Rizzoli - L.go Chigi, 15 - Tel. 06/6796641 

00185 ROMA 

Self Service del libro - Via delle Terme di Diocleziano - 
Tel. 06/485591 

00181 ROMA 

Tutti libri - Via Appia Nuova, 447 - Tel. 06/783388 

LIGURIA 

16124 GENOVA 

Bozzi F.lli s.a.s. - Cairoli, 2/R - Tel. 010/298742 

16121 GENOVA 

Di Stefano Tecnica - Via Ceccardi, 40 - Tel. 010/593821 

16121 GENOVA 

Fiera Libro Porta Archi - Via Porta Archi, 10/R - Tel. 010/595878 

16121 GENOVA 

Fiera Libro XX - Via XX Settembre, 276 * Tel. 010/540197 

19100 LA SPEZIA 

Ebraio - Via del Prione, 216 - Tel. 0187/37096 

191 00 LA SPEZIA 

Melita - Via del Prione, 83/R * Tel. 0187/28196 

17100 SAVONA 

Moneta GB - Via Boselli, 8/R - Tei. 019/22695 

17100 SAVONA 

Moneta Vittorio - Corso Italia, 71/R - Tel. 019/20205 

LOMBARDIA 

24100 BERGAMO 

Bergamo Libri - Via Palazzolo, 21 - Tel. 035/219257 

24100 BERGAMO 

Lorenzelli - V.le Papa Giovanni XXIII - Tel. 035/243426 

24100 BERGAMO 

Scientifica Rasmussen - Via Scuri, 4 - Tel. 035/256133 

2510Q BRESCIA 

Benzoni c/o Universitaria - Via Trieste, 32 - Tel. 030/58255 


26100 CREMONA 

Delconvegno - C.so Campi, 78 - Tei. 0372/22633 

22053 LECCO (CO) 

Cattaneo - Via Roma, 52 - Tel. 0341/363023 

22053 LECCO (CO) 

Leccolibri - Via Cairoli, 48 - Tei. 0341/363341 

46100 MANTOVA 

Erre Emme - Via Accademia, 31 - Tel. 0376/324535 

20133 MILANO 

Clued - Via Celoria, 20 - Tel. 02/230529 

20133 MILANO 

Clup s.c.r.l. - P.zza L. da Vinci, 32 - Tel. 02/230545 

20123 MILANO 

Dante - Via Dante, 17 - Tel. 02/872934 

20123 MILANO 

Duomo Libri - Via Orefici, 2 - Tel. 02/807743 

20121 MILANO 

Hoepli Ulrico - Via Hoepli, 5 - Tel. 02/865446 

20122 MILANO 

Ipsoa - L.go Augusto, 8 - Tel. 02/824761 

20124 MILANO 

Libreria del corso - C.so Buenos Ayres, 49 - Tel. 02/206798 

20122 MILANO 

Messaggerie Musicali - Galleria del corso, 2 - Tel. 02/781251 

20122 MILANO 

Mondadori per voi - C.so Vittorio Emanuele, 58 - Tel. 02/705832/3 

20124 MILANO 

Puccini - C.so Buenos Ayres, 31 (Angolo V. Boscovich, 61) - 
Tel. 02/2041937 

20121 MILANO 

Rizzoli - Galleria Vitt. Eman., 79 - Tel. 02/807348 

20136 MILANO 

S. Gottardo Libr. - C.so S. Gottardo, 16 - Tel. 02/8321269 

20052 MONZA (MI) 

Istituto Pavoniano Artigianelli - Via Pavoni - Tel. 039/324745 

21100 VARESE 

Pontiggia - Via Aldo Moro - Tel. 0332/282182 

21100 VARESE 

Veroni - P.zza Giovine Maria - Tel. 0332/282325 

MARCHE 

60100 ANCONA 

Libreria Fogola - P.zza Cavour, 4/5/6 - Tel. 071/51606 

63100 ASCOLI PICENO 

Rinascita - C.so Trento e Trieste, 13 - Tel. 0736/50653 

61100 PESARO 

Firn libro- Via Abbati, 39 -Tel. 0721/69311 

PIEMONTE 

15100 ALESSANDRIA 

Bertolotti - Via Roma, 24 - Tel. 0131/42363 

13051 BIELLA (VC) 

Giovannacci - Via Italia, 14 - Tel. 015/24513 

10015 IVREA (TO) 

Cossavella - C.so Cavour, 38 - Tel. 0125/423380 

28100 NOVARA 

Bancarella del libro di Ottavio Lazzarielli - Via F.lli Rosselli, 45 - 
Tel. 0321/29188 

28100 NOVARA 

La Talpa - Via Solaroli, 4/c 

10064 PINEROLO (CN) 

Elia Romano - P.zza V. Veneto, 4 - Tel. 0121/22565 

10123 TORINO 

Campus * Via Urbano Rattazzi, 4 - Tel. 011/519959 

10129 TORINO 

Celid Politecnico - C.so Duca degli Abruzzi, 24 - Tel. 011/540875 

10123 TORINO 

Druetto - Via Roma, 223/225 - Tel. 011/547820 

10122 TORINO 

Lattes - Via Garibaldi, 3 -Tel. 011/519274 

10122 TORINO 

Paravia - Via Garibaldi, 23 - Tel. 011/540608 

10125 TORINO 

Zanaboni - C.so V. Emanuele, 41 - Tel. 011/6505516 

13100 VERCELLI 

Giovannucci - Via Lavinj, 10 - Tel. 0161/53432 

PUGLIA 

70121 BARI 

Laterza & Figli - Via Sparano, 134- Tel. 080/211780 

71100 FOGGIA 

Minerva di Riefolo R. - V.le XXIV Maggio 69 - Tel. 0881/72835 

73100 LECCE 

Demetrio Emilio - V.le Marconi, 75 - Tel. 0832/43030 

70056 MOLFETTA (BA) 

Il Ghigno s.n.c. di Gennaro & C. - Via F. Campanella, 24 - 
Tel. 080/911365 


SICILIA 

95131 CATANIA 

C.C. Cavallotto di D’Ambra - C.so Sicilia, 91 - Tel. 095/310414 

95131 CATANIA 

Crisafulli - Via Etnea, 280 - Tel. 095/317025 

95129 CATANIA 

Dal libraio s.r.l. - C.so Italia, 21 - Tel. 095/376596 

98100 MESSINA 

Bonanzinga - Via Dei Mille, 1 10 - Tel. 090/718551 

98100 MESSINA 

Peloritana di Sortino A. - C.so Cavour, 165 - Tel. 090/41123 
98057 M IL AZZO (ME) 

Filoramo Stefano - Piano Baele, 7-8 - Tel. 090/9282132 

90141 PALERMO 

Ediz. Pegaso - Via Notarbartolo, 9/F - Tel. 091/6254856 

90100 PALERMO 

Flaccovio - Via 4 Canti Città - Tel. 091/585927 

90139 PALERMO 

Nuova Presenza s.r.l. - Via E. Albanese, 100 - Tel. 091/587582 

90133 PALERMO 

Pirandello - Via Cavour, 40 - Tel. 091/585840 

96100 SIRACUSA 

Domus di Di Benedetto - Via Tisia, 1 16 - Tel. 0931/35037 

CALABRIA 

89044 LOCRI (RC) 

Pancallo Francesco - Via V. Emanuele, 93 - Tel. 0964/29168 

89100 REGGIO CALABRIA 

Scientifica - C.so Garibaldi, 144 - Tel. 0965/332279 

TOSCANA 

52100 AREZZO 

Mori Piero & C. s.n.c. - Via Roma, 24 - Tel. 0575/24687 

50129 FIRENZE 

G.P.L. Marzocco - Via Dé Martelli, 6 - Tel. 055/265251 

50129 FIRENZE 

Le Monnier s.p.a. - Via S. Gallo, 49R - Tel. 055/483215 

57100 LIVORNO 

Beiforte Editore Libraio - Via Grande, 91 - Tel. 0586/887379 

56100 PISA 

C.L.U. - Via S. Maria, 7 - Tel. 050/501426 

53100 SIENA 

Ticci s.a.s. - Via Delle Terme, 5/7 - Tel. 0577/280010 

TRENTINO ALTO ADIGE 

39100 BOLZANO 

Cappelli L. - P.zza Della Vittoria, 41 - Tel. 0471/42041 

38100 TRENTO 

Artigianelli - Via S. Croce, 35 - Tel. 0461/23109 

38100 TRENTO 

Disertori s.n.c. - Via Diaz, 11 - Tel. 0461/21016 

UMBRIA 

06100 PERUGIA 

La Fontana s.r.l. - C.so Vannucci, 22 

05100 TERNI 

Alterocca s.n.c. Gestione Durastanti G. - C.so Tacito, 29 

VENETO 

32100 BELLUNO 

Massenz s.n.c. - Via Matteotti, 58 - Tel. 0437/22321 

30173 MESTRE (VE) 

Fiera del libro - C.so Garibaldi, 1B - Tel. 041/5057727 
30175 MESTRE (VE) 

Pacinotti s.a.s. - Via Caneve, 94 - Tel. 041/5057716 

35131 PADOVA 

Cortini Libr. Internazionale - Via Marzolo, 2 - Tel. 049/650859 

35121 PADOVA 

Nuova Moderna - Via Paolotti, 5 - Tel. 049/26648 

35131 PADOVA 

Progetto s.n.c. - Via Marzolo, 28 - Tel. 049/665492 

45100 ROVIGO 

Ferrari - Via Cavour, 42 - Tel. 0425/21209 

31100 TREVISO 

Canova - Via Calmaggiore, 31 - Tel. 0422/46253 

31100 TREVISO 

Marton s.r.l. - C.so del Popolo, 40 - Tel. 0422/545708 

37126 VERONA 

Cangrande di B. Belluzzo - Via IV Novembre, 22 - Tel. 045/48002 

37121 VERONA 

Cortina Edizioni s.r.l. - Via Cattaneo, 8 - Tel. 045/594177 

37129 VERONA 

Grosso di M. Turco - Via Carducci, 44 - Tel. 045/8000744 

36100 VICENZA 

Galla s.r.l. - Contrà Castello, 1 - Tel. 0444/33352 
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DIVISIONE LIBRI 



CHIEDI IN EDICOLA IL TUO 
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DIVISIONE GRANDI OPERE 











Entra anche tu nel misterioso mondo 

degli Etruschi con una favolosa avventura interamente italiana. 
Incontrerai fantasmi, regine affascinanti, 
lupi e altre strane creature che popolano 
le antichissime mura di Veio, autentica città etrusco. 

Scopri con un gioco irresistibile i misteri di questa affascinante civiltà 


DIVISIONE PERIODICI 


